(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    247594,       5602]
NotebookOptionsPosition[    213870,       4889]
NotebookOutlinePosition[    214769,       4914]
CellTagsIndexPosition[    214726,       4911]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["1.0", "HistoryData",
  CellTags->"New",ExpressionUUID->"2f1917d6-1937-47df-baa7-dc789c7fe4e9"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"2b01b2df-83cd-49f0-85a1-be0e79020df8"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"fe7a20e2-bf59-471a-abdd-7bbf8092377e"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"7c0c2cf8-1cf6-4b30-b007-d5a278a6e5a1"]
}], "History",
 CellID->1247902091,ExpressionUUID->"3376bfad-4d10-4930-9d2a-0371a814ca79"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"6b793626-5a60-4e1f-8673-a35c54651ea6"],

Cell["Tutorial", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"6e7252a3-d910-4387-9baa-dc919f7cbd5d"],

Cell["RefpropLink", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"77712005-16b6-4b73-b7e0-0dd090f548fb"],

Cell["RefpropLink`", "Categorization",
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"92d4887f-c8fb-4375-8be3-9ba7bf8ca731"],

Cell["RefpropLink/tutorial/Implementation", "Categorization",
 CellLabel->"URI",ExpressionUUID->"c8b5612c-03e3-496e-a5e7-142cc6a5214c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->1427428552,ExpressionUUID->"573d6d22-dd2b-4eac-b9ea-6d53f39cee53"],

Cell["RefpropLink", "Keywords",
 CellChangeTimes->{{3.824998875250264*^9, 3.8249988791657934`*^9}},
 CellID->1251852827,ExpressionUUID->"191bd2a6-492f-40c6-af1a-ffad99a4a502"],

Cell["REFPROP", "Keywords",
 CellChangeTimes->{{3.824998875250264*^9, 3.824998882492915*^9}},
 CellID->216879426,ExpressionUUID->"41f6e0a3-9c7f-4fe0-b351-a667e011fcde"],

Cell["Functions", "Keywords",
 CellChangeTimes->{{3.824998875250264*^9, 3.8249989049568624`*^9}},
 CellID->154751131,ExpressionUUID->"9b83fe6a-3f1c-499e-b033-57753b1fca55"],

Cell["Lists", "Keywords",
 CellChangeTimes->{{3.824998875250264*^9, 3.8249989090100317`*^9}},
 CellID->29205878,ExpressionUUID->"75b76ea9-24a0-4558-b0ca-a3a764e4a246"],

Cell["Listable", "Keywords",
 CellChangeTimes->{{3.824998875250264*^9, 3.8249989128218327`*^9}},
 CellID->538564055,ExpressionUUID->"b44a215e-8ea4-4b34-a861-dcd140aa48a8"],

Cell["Solvers", "Keywords",
 CellChangeTimes->{{3.824998875250264*^9, 3.8249989172898884`*^9}},
 CellID->394345204,ExpressionUUID->"3cfd1805-dd86-4c0a-ba12-3ff08594a33c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"322bb16c-3234-4032-9f5a-78d862afac11"],

Cell["Patrick Fourspring", "Details",
 CellChangeTimes->{{3.8249987250419197`*^9, 3.8249987289863753`*^9}},
 CellLabel->"Lead",
 CellID->218895918,ExpressionUUID->"01253036-2b27-4b95-9038-21c09d73be90"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.8249987330424986`*^9, 3.8249987345146055`*^9}},
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"bdffa3e3-002a-4818-90ff-4300d88db90d"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.8249987376741447`*^9, 3.824998739298771*^9}},
 CellLabel->"Authors",
 CellID->795871300,ExpressionUUID->"3cad3654-a9af-4c45-854e-d49337109947"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->199739161,ExpressionUUID->"5cfed646-b428-4fc2-b5c1-80557fbb81c4"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->40625308,ExpressionUUID->"d0375f81-a092-4453-a8da-672f3970f7c2"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->357121918,ExpressionUUID->"1f04202e-d027-49d5-8b2b-f58b1139a0a6"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->35949532,ExpressionUUID->"55772c2b-ac7b-472e-a036-612608bf446e"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->929432370,ExpressionUUID->"c3bfd6ff-8d8b-4f9c-a05b-a5d7b2777972"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"59100d1b-12fc-470d-a9c5-2327edb17c3e"]
}, Closed]],

Cell[CellGroupData[{

Cell["RefpropLink Implementation", "Title",
 CellChangeTimes->{{3.8249983534025745`*^9, 3.824998360507606*^9}, {
  3.829554366833608*^9, 3.8295543720576696`*^9}, {3.830412196134341*^9, 
  3.830412202261947*^9}},
 CellID->509267359,ExpressionUUID->"b82896c5-a435-47d6-8dc3-9fab3c9f0f13"],

Cell[TextData[StyleBox["Details of RefpropLink Function Implementation and \
Usage",
 FontSize->14,
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.8304122172718186`*^9, 3.8304122553748827`*^9}, 
   3.8304123035659704`*^9},
 CellID->314664191,ExpressionUUID->"f9d60e3e-5ffd-4414-8284-8b6f8177a96b"],

Cell["\<\
NIST REFPROP is a fluid properties library that provides a Graphical User \
Interface, as well as a Dynamic Link Library (DLL) whose functions can be \
called by external programs.  The DLL provides an Application Program \
Interface (API) for calling the internal DLL functions.  The Legacy API makes \
calls directly to many of the internal property functions in REFPROP and is \
actually used by the REFPROP GUI.  With the release of NIST REFPROP 10, a set \
High-Level API functions was introduced to help simplify usage of the DLL to \
perform fluid property calculations. \
\>", "Text",
 CellChangeTimes->{{3.824998368426434*^9, 3.82499846942638*^9}, {
   3.824998503706724*^9, 3.8249987190110273`*^9}, {3.8249987591706657`*^9, 
   3.8249987740817995`*^9}, {3.8249988131782618`*^9, 3.8249988266422615`*^9}, 
   3.824998929506226*^9, {3.8300080552081733`*^9, 3.830008220937822*^9}, {
   3.8300082885598874`*^9, 3.830008323607126*^9}, {3.8300083598471723`*^9, 
   3.830008612135227*^9}},
 CellID->1534169418,ExpressionUUID->"c7b73530-91d6-4625-a56e-3e72d808d4ae"],

Cell["\<\
RefpropLink provides Mathematica wrapper functions to the NIST REFPROP DLL \
functions that greatly simplify using both the Legacy API as well as the new \
High-Level API introduced in REFPROP 10.  NIST REFPROP 9.1 or higher must be \
installed to use the Legacy API functions.  NIST REFPROP 10 or higher must be \
installed to make use of the High-Level API functions.\
\>", "Text",
 CellChangeTimes->{{3.8300087618327675`*^9, 3.830008764198413*^9}, {
  3.8300088014308043`*^9, 3.8300088654944143`*^9}},
 CellID->156958282,ExpressionUUID->"df6e567a-7ca5-4c39-86b1-6fcfa8fc42c3"],

Cell["\<\
This tutorial provides an overview of making function calls from a \
Mathematica notebook and handle the results.  Help on the individual \
functions is not provided here, but in the individual symbol pages in the \
Wolfram Documentation, as well as the Pure Fluids and Mixtures tutorials.  \
Units handling will be mentioned and demonstrated below, but more detail is \
provided in the RefpropLink Quantity (Units) Implementation tutorial.\
\>", "Text",
 CellChangeTimes->{{3.824998368426434*^9, 3.82499846942638*^9}, {
   3.824998503706724*^9, 3.8249987190110273`*^9}, {3.8249987591706657`*^9, 
   3.8249987740817995`*^9}, {3.8249988131782618`*^9, 3.8249988266422615`*^9}, 
   3.824998929506226*^9, {3.8300080552081733`*^9, 3.8300082559192114`*^9}, {
   3.830008637623068*^9, 3.830008640446499*^9}, {3.8300086884630556`*^9, 
   3.830008708559264*^9}},
 CellID->70517792,ExpressionUUID->"8577397b-b480-424f-a13d-7f943d15983b"],

Cell[TextData[{
 "For the purposes of this usage tutorial, we'll use just a few of the API \
wrapper functions available within RefpropLink.  For additional information \
on usage, the other RefpropLink tutorials and the ",
 StyleBox[ButtonBox["NIST REFPROP Online DLL Documentation",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://refprop-docs.readthedocs.io/en/latest/DLL/index.html"], 
    None}],
  FontWeight->"Bold"],
 " [1] should be consulted as well."
}], "Text",
 CellChangeTimes->{{3.824999133028133*^9, 3.824999150290948*^9}, {
  3.8250522168178687`*^9, 3.82505227424232*^9}, {3.825165249722023*^9, 
  3.825165261737898*^9}, {3.8311856160253468`*^9, 3.831185711017265*^9}},
 CellID->313088543,ExpressionUUID->"1a7f0dec-b8e5-4178-996a-1a81dace6519"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"RefProp", "[", 
     RowBox[{"hFld", ",", "hIn", ",", "hOut", ",", "a", ",", "b"}], "]"}], 
    Cell["\<\
Perform a Refprop calculation after loading the fluid file specified in the \
optional hFLD string parameter.\
\>", "TableText",ExpressionUUID->"a1c4a5d0-b580-463e-bc3f-d6c22a680dc0"]},
   {
    RowBox[{"name", "[", "icomp", "]"}], Cell["\<\
Legacty API function that retrieves the name of the currently loaded fluid \
component.\
\>", "TableText",ExpressionUUID->"ccec637e-6c48-4611-8968-63b27c70d03d"]},
   {
    RowBox[{"therm", "[", 
     RowBox[{"t", ",", "d"}], "]"}], Cell[
    "Calculate thermodynamic properties at specified state point.", 
     "TableText",ExpressionUUID->"b4404dd7-9daa-4d31-8ec7-80559a04d575"]},
   {
    RowBox[{"tprho", "[", 
     RowBox[{"t", ",", "p"}], "]"}], Cell[
    "Calculate single phase density at specified state point.", "TableText",
     ExpressionUUID->"38d60761-4f2f-404c-83ae-21f7c129c387"]},
   {
    RowBox[{"info", "[", "icomp", "]"}], Cell[
    "Retrieve fluid's thermodynamic constants.", "TableText",ExpressionUUID->
     "bca20d26-a147-4fa6-b196-3f2fd36a096b"]},
   {
    RowBox[{"SetDLL", "[", 
     RowBox[{"0", "|", "1"}], "]"}], Cell[
    "Set disk location of the NIST REFPROP DLL.", "TableText",ExpressionUUID->
     "4b82f9bf-9a34-40ee-b781-de4493e52cf2"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.8250522814909377`*^9, 3.8250522835384636`*^9}, {
  3.8250523895390377`*^9, 3.825052404994715*^9}, {3.825052459069129*^9, 
  3.8250524802106066`*^9}, {3.8250526842271023`*^9, 3.8250527345146465`*^9}, {
  3.825164980178172*^9, 3.8251651045950575`*^9}, {3.825165169086109*^9, 
  3.8251652165387487`*^9}},
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.4], {
      Scaled[0.6]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->110365889,ExpressionUUID->"b5ae5c96-0cf6-48ea-aca4-c8fcbe59e269"],

Cell["RefpropLink Functions used in this tutorial.", "Caption",
 CellChangeTimes->{{3.825052506554164*^9, 3.8250525174908934`*^9}, {
  3.8251649615779357`*^9, 3.825164962105524*^9}},
 CellID->366059264,ExpressionUUID->"1884e8ac-d7d4-4923-bbfe-622c212fea25"],

Cell[CellGroupData[{

Cell["Some RefpropLink Nomenclature", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.82499924293926*^9, 3.8249992693137417`*^9}, {
  3.82515017780237*^9, 3.8251501806098986`*^9}, {3.8251506820976057`*^9, 
  3.8251506890569677`*^9}, {3.8251554048254323`*^9, 3.8251554083220797`*^9}},
 CellID->235099168,ExpressionUUID->"e38c5208-7642-4a56-a449-871a32a4053e"],

Cell[TextData[{
 "Reading the ",
 StyleBox["RefpropLink",
  FontWeight->"Bold"],
 " documentation guides, symbol pages, and tutorials can be a little \
confusing.  Since the name ",
 StyleBox["REFPROP",
  FontWeight->"Bold"],
 ", and its component functions, appear in various contexts, this table will \
help keep them all straight."
}], "Text",
 CellChangeTimes->{{3.8250246594026847`*^9, 3.8250247481543646`*^9}, {
  3.8250440904986873`*^9, 3.8250440946176944`*^9}, {3.825044880522085*^9, 
  3.825044885801938*^9}, {3.825150196393689*^9, 3.825150406689373*^9}, {
  3.825150708451154*^9, 3.8251508432576942`*^9}, {3.8251557962817507`*^9, 
  3.8251558453774796`*^9}},
 CellID->642478,ExpressionUUID->"c39854e3-2f6c-4813-99fd-1a196e1c4916"],

Cell[BoxData[GridBox[{
   {"REFPROP", Cell[TextData[{
     "This upper-case string always refers to the ",
     StyleBox["NIST REFPROP",
      FontWeight->"Bold"],
     " software, obtained from NIST.  This software must be installed for ",
     StyleBox["RefpropLink",
      FontWeight->"Bold"],
     " to function."
    }], "TableText",ExpressionUUID->"ac2a06ed-36c4-48aa-a961-665dd77fd7ee"]},
   {
    RowBox[{"REFPROP", ".", "DLL"}], Cell[TextData[{
     "The 32-bit ",
     StyleBox["DLL",
      FontWeight->"Bold"],
     " installed with ",
     StyleBox["NIST REFPROP",
      FontWeight->"Bold"],
     "; not used here."
    }], "TableText",ExpressionUUID->"e3df3710-68c0-4e6a-a05e-847e99e46d25"]},
   {
    RowBox[{"REFPRP64", ".", "DLL"}], Cell[TextData[{
     "The 64-bit ",
     StyleBox["DLL",
      FontWeight->"Bold"],
     " installed with ",
     StyleBox["NIST REFPROP",
      FontWeight->"Bold"],
     "; used by ",
     StyleBox["RefpropLink",
      FontWeight->"Bold"],
     "."
    }], "TableText",ExpressionUUID->"c82daa85-f946-4b9c-a36b-15012bb5c28d"]},
   {"REFPROPdll", Cell[TextData[{
     "The REFPROP ",
     StyleBox["function",
      FontSlant->"Italic"],
     " exported from the NIST REFRPROP DLLs.  All exported functions are \
expressed as uppercase \"NAME\" followed by lowercase \"dll\".  These \
functions get called by RefpropLink wrapper functions."
    }], "TableText",ExpressionUUID->"c7842f92-be89-4e80-8eb5-d9232ed29b11"]},
   {
    RowBox[{"RefProp", "[", "]"}], Cell[TextData[{
     "The ",
     StyleBox["CamelCase",
      FontSlant->"Italic"],
     " Mathematica wrapper function, defined in ",
     StyleBox["RefpropLink",
      FontWeight->"Bold"],
     ", that calls the exported ",
     StyleBox["REFPROPdll",
      FontWeight->"Bold"],
     " function in ",
     StyleBox["REFPRP64.DLL",
      FontWeight->"Bold"],
     ", installed with ",
     StyleBox["NIST REFPROP",
      FontWeight->"Bold"],
     "."
    }], "TableText",ExpressionUUID->"c2223801-7324-4fef-b270-6e2af9f31f81"]},
   {"RefpropLink", Cell["\<\
The Mathematica package (paclet) that includes all of the wrapper functions \
and documentation.\
\>", "TableText",ExpressionUUID->"2d1c8950-8a21-40bd-86f4-ea0b3672fcd7"]},
   {
    RowBox[{"FuncName", "[", "]"}], Cell[TextData[{
     "High-Level API functions are all ",
     StyleBox["CamelCase",
      FontSlant->"Italic"],
     "."
    }], "TableText",ExpressionUUID->"9c7257a9-4726-4fba-97af-872d01a378eb"]},
   {
    RowBox[{"legacyfunc", "[", "]"}], Cell[TextData[{
     "Legacy API functions are all ",
     StyleBox["lowercase",
      FontSlant->"Italic"],
     "."
    }], "TableText",ExpressionUUID->"51d316d0-a809-4ee9-90ec-1d09f020a63d"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.8251509160580406`*^9, 3.825151042330386*^9}, {
  3.8251544951304083`*^9, 3.825154749913313*^9}, {3.8251547800108647`*^9, 
  3.8251550196114144`*^9}, {3.8251550525554566`*^9, 3.8251550776429157`*^9}, {
  3.8251552120425673`*^9, 3.8251552143384256`*^9}, {3.8251553112137275`*^9, 
  3.825155384443901*^9}, {3.8251558998338747`*^9, 3.8251559023783965`*^9}, {
  3.8251560225231256`*^9, 3.8251560575225706`*^9}},
 Background->GrayLevel[0.85],
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.2], {
      Scaled[0.8]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->5227948,ExpressionUUID->"178668a0-28f5-41b6-8eea-7ae8c33b15e0"],

Cell["RefpropLink Naming Convention.", "Caption",
 CellChangeTimes->{{3.8251508941615877`*^9, 3.82515091004908*^9}},
 CellID->807787799,ExpressionUUID->"7befbce2-12e5-4f41-9d43-783a992c7407"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Getting Started", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.82499924293926*^9, 3.8249992693137417`*^9}, {
  3.82515017780237*^9, 3.8251501806098986`*^9}},
 CellID->116862650,ExpressionUUID->"17853b90-6f09-45e5-9b4e-75096f8e0b97"],

Cell["\<\
Using RefpropLink, requires that the package be loaded into Mathematica.  It \
is usually a good idea to reset the Mathematica kernel, in case the package \
was already loaded once (performing a reset) or if there are globally defined \
symbols that might conflict with the symbols being defined in RefpropLink.\
\>", "Text",
 CellChangeTimes->{{3.8250246594026847`*^9, 3.8250247481543646`*^9}, {
  3.8250440904986873`*^9, 3.8250440946176944`*^9}, {3.825044880522085*^9, 
  3.825044885801938*^9}, {3.825150196393689*^9, 3.825150406689373*^9}},
 CellID->273243778,ExpressionUUID->"36b6f699-2f4c-4337-ab55-2d02d419ba48"],

Cell[CellGroupData[{

Cell["Reset / Load RefpropLink", "MathCaption",
 CellChangeTimes->{{3.825117502498872*^9, 3.8251175094103923`*^9}, {
  3.825150423336862*^9, 3.8251504285698977`*^9}},
 CellID->838524819,ExpressionUUID->"408dffdb-6b2e-4cf6-921a-04c2f4b7c5a2"],

Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.825117513566308*^9, 3.825117518922991*^9}, {
  3.8251473707719254`*^9, 3.8251473731944647`*^9}},
 CellLabel->"In[8]:=",
 CellID->28796156,ExpressionUUID->"36e3ceda-6a11-4fe4-bd4f-b6dc01ca8666"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<RefpropLink`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.8251175472342873`*^9, 3.825117560979534*^9}, {
  3.825149149788746*^9, 3.8251491515470448`*^9}},
 CellLabel->"In[1]:=",
 CellID->412954371,ExpressionUUID->"f34098cd-41d1-4bf4-80fb-c39d51dcd330"],

Cell[BoxData[
 FrameBox["\<\"Found NIST REFPROP Version: 10.0.0.2\"\>",
  Background->RGBColor[0.88, 1, 0.88],
  FrameStyle->None,
  StripOnInput->False]], "Print",
 CellChangeTimes->{3.8251175650117245`*^9, 3.8251473868598995`*^9, 
  3.8251493005959673`*^9, 3.8251612535392084`*^9, 3.830012168262699*^9},
 CellLabel->"During evaluation of In[1]:=",
 CellID->343829516,ExpressionUUID->"ec830a55-3892-4fca-86cd-a418ceef8a88"]
}, Open  ]]
}, Open  ]],

Cell["\<\
The Needs command will load (Get) the package which performs some \
initialization when the package loads.  It will always display the version of \
the NIST REFPROP DLL (REFPRP64.DLL) found on the system and being accessed by \
the RefpropLink wrapper functions.\
\>", "Text",
 CellChangeTimes->{{3.825150439090766*^9, 3.8251505103622007`*^9}, {
  3.8251505699693027`*^9, 3.8251506404419537`*^9}, {3.8251554367135477`*^9, 
  3.8251554433053756`*^9}},
 CellID->284028808,ExpressionUUID->"d7ecb164-088b-458a-a811-bde2e1558fc0"],

Cell[TextData[{
 "If REFPROP is not found on the system in its expected default location, an \
error message will be issued, instead of the version information.  If REFPROP \
is installed in a non-standard location, the RefpropLink function, ",
 Cell[BoxData[
  RowBox[{
   ButtonBox["SetDLL",
    BaseStyle->"Link",
    ButtonData->"paclet:RefpropLink/ref/SetDLL"], "[", "]"}]], 
  "InlineFormula",ExpressionUUID->"aaaa9bc2-6312-4bea-ba1a-5ed2773c12b5"],
 ", can be used to launch a Windows FileOpen dialog to interactively locate \
REFPROP's 64-bit DLL (REFPRP64.DLL) on the system disk."
}], "Text",
 CellChangeTimes->{{3.8251554714022493`*^9, 3.825155729490173*^9}, {
  3.8251607775784516`*^9, 3.8251608617935157`*^9}, {3.825160909713417*^9, 
  3.825160951700137*^9}, {3.8251610622575445`*^9, 3.8251610985614758`*^9}},
 CellID->82110915,ExpressionUUID->"1cec86a6-0eba-4748-b62b-79068d0d2dd1"],

Cell[CellGroupData[{

Cell[TextData[{
 "Call ",
 StyleBox["SetDLL",
  FontWeight->"Bold"],
 " to temporarily locate NIST REFPROP on the system"
}], "MathCaption",
 CellChangeTimes->{{3.8251605983054843`*^9, 3.825160651841561*^9}, {
   3.8251607531777067`*^9, 3.8251607655296516`*^9}, 3.8253154091053066`*^9},
 CellID->330237406,ExpressionUUID->"699fcb51-9a84-461c-aff8-3fdb814b9365"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetDLL", "[", "]"}]], "Input",
 CellChangeTimes->{{3.8251557145361567`*^9, 3.8251557502975416`*^9}, {
  3.825160700442709*^9, 3.8251607005135193`*^9}},
 CellLabel->"In[1]:=",
 CellID->59478798,ExpressionUUID->"4e7d885f-20af-4aa3-b6c2-837f088ccdd5"],

Cell[BoxData[
 FrameBox["\<\"Selected NIST RefProp Version: 10.0.0.2\"\>",
  Background->RGBColor[0.88, 1, 0.88],
  FrameStyle->None,
  StripOnInput->False]], "Print",
 CellChangeTimes->{3.825160719306243*^9, 3.8251612636434083`*^9},
 CellLabel->"During evaluation of In[1]:=",
 CellID->7845594,ExpressionUUID->"c3e0584a-ccd5-4945-9b35-849eda8f48ba"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Calling this function with the optional parameter, ",
 StyleBox["permSet",
  FontSlant->"Italic"],
 ", set to 1 will save this non-standard DLL location (and the location of \
the underlying Fluids and Mixture files) in the user's Mathematica \
configuration ($UserBaseDirectory) so that it is persistent between \
Mathematica Sessions."
}], "Text",
 CellChangeTimes->{
  3.8251609549325094`*^9, {3.8251610181783743`*^9, 3.8251610211544375`*^9}, {
   3.825161122227169*^9, 3.8251611606504817`*^9}, {3.8251612080826387`*^9, 
   3.8251612095696616`*^9}},
 CellID->126090326,ExpressionUUID->"846f9819-d376-45de-a431-2982e99b7056"],

Cell[CellGroupData[{

Cell[TextData[{
 "Call ",
 StyleBox["SetDLL",
  FontWeight->"Bold"],
 " to permanently locate NIST REFPROP on the system"
}], "MathCaption",
 CellChangeTimes->{{3.8251605983054843`*^9, 3.825160651841561*^9}, {
   3.8251607531777067`*^9, 3.8251607655296516`*^9}, {3.8251609037862644`*^9, 
   3.825160905306202*^9}, 3.8253154047938347`*^9},
 CellID->2113052,ExpressionUUID->"bb734a77-cb5e-460b-b864-ad832c189f24"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetDLL", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.8251557145361567`*^9, 3.8251557502975416`*^9}, {
   3.825160700442709*^9, 3.8251607005135193`*^9}, {3.8251609650823417`*^9, 
   3.825160966570391*^9}, 3.825161025986527*^9},
 CellLabel->"In[2]:=",
 CellID->10393980,ExpressionUUID->"6984c45f-454f-4d50-b2ec-57606647b226"],

Cell[BoxData[
 FrameBox["\<\"Selected NIST RefProp Version: 10.0.0.2\"\>",
  Background->RGBColor[0.88, 1, 0.88],
  FrameStyle->None,
  StripOnInput->False]], "Print",
 CellChangeTimes->{3.825161033885377*^9, 3.8251612742191644`*^9},
 CellLabel->"During evaluation of In[2]:=",
 CellID->399260247,ExpressionUUID->"037d4e8f-1629-4100-bdc7-8b3c7f5c990f"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Wolfram Language Benefits", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.82499924293926*^9, 3.8249992693137417`*^9}},
 CellID->92083479,ExpressionUUID->"d9603bec-85d8-496f-9696-f3aee503a4e7"],

Cell["\<\
The Wolfram Language, the underlying interpreted code language in \
Mathematica, is ideally suited to make calls to the REFPROP API with a wide \
range of flexibility that includes:\
\>", "Text",
 CellChangeTimes->{{3.8250246594026847`*^9, 3.8250247481543646`*^9}, {
  3.8250440904986873`*^9, 3.8250440946176944`*^9}, {3.825044880522085*^9, 
  3.825044885801938*^9}, {3.8300112751153994`*^9, 3.8300112832585864`*^9}},
 CellID->1140557,ExpressionUUID->"1f1b5369-a4c9-48c5-af80-50e2187cf187"],

Cell["\<\
Function parameters can be made \"optional\" with default values provided,\
\>", "BulletedText",
 CellChangeTimes->{{3.825044124138744*^9, 3.8250441690017767`*^9}, 
   3.8250444397546225`*^9},
 CellID->24546133,ExpressionUUID->"fca4dfdd-d65c-4ede-a0c8-faf2474c497f"],

Cell["\<\
Function parameters that typically don't change, can be provided as function \
\"Options\" with default values provided,\
\>", "BulletedText",
 CellChangeTimes->{{3.825044124138744*^9, 3.8250441690017767`*^9}, {
  3.825044338546158*^9, 3.825044446146524*^9}, {3.8250455456738586`*^9, 
  3.8250455477054377`*^9}},
 CellID->460952491,ExpressionUUID->"86fab717-55bf-4f0e-aecd-ef275d494c9f"],

Cell["\<\
Function parameters can be provided as a List of values; effectively calling \
the function repeatedly, once for each element in the list,\
\>", "BulletedText",
 CellChangeTimes->{{3.825044124138744*^9, 3.8250441690017767`*^9}, {
  3.8250455623143635`*^9, 3.8250456815216274`*^9}},
 CellID->121045030,ExpressionUUID->"97fbeef9-c785-4a03-a886-c32ebf459163"],

Cell["\<\
Function parameters can be provided with units for automatic unit handling,\
\>", "BulletedText",
 CellChangeTimes->{{3.825044124138744*^9, 3.8250441690017767`*^9}, {
   3.8250442238581305`*^9, 3.8250442280498943`*^9}, {3.8250444642660685`*^9, 
   3.825044503369486*^9}, 3.825044999849996*^9},
 CellID->45867184,ExpressionUUID->"ee719d0b-d353-4a7c-8dc9-501e75c5e48d"],

Cell["\<\
Functions can return any number of values and string results, depending on \
the input values,\
\>", "BulletedText",
 CellChangeTimes->{{3.825044124138744*^9, 3.8250441690017767`*^9}, {
   3.825044518378386*^9, 3.825044600793991*^9}, {3.825044634242585*^9, 
   3.8250446438259335`*^9}, 3.825044996977706*^9},
 CellID->690920834,ExpressionUUID->"e7a1d2a6-3261-4fef-b342-939bed196d51"],

Cell["\<\
Function numerical results can be returned with or without units, depending \
on inputs and options,\
\>", "BulletedText",
 CellChangeTimes->{{3.825044124138744*^9, 3.8250441690017767`*^9}, {
   3.825044694313938*^9, 3.8250447208998528`*^9}, 3.8250449919631114`*^9},
 CellID->41726055,ExpressionUUID->"ed74b6c9-9a23-4cec-8937-f5f72e9b3622"],

Cell["\<\
Function results can be returned in a \"ruled list\" that helps identify each \
result generated by the function call as well as each values units,\
\>", "BulletedText",
 CellChangeTimes->{{3.825044124138744*^9, 3.8250441690017767`*^9}, {
  3.8250449145221796`*^9, 3.8250449880266085`*^9}, {3.8250453742741747`*^9, 
  3.8250454024757395`*^9}},
 CellID->424591168,ExpressionUUID->"18709368-36d8-4bcd-92cc-4a8433e41bb8"],

Cell["\<\
The end result is that, compared to calling the REFPROP API functions in \
their native language (Fortran), the Mathematica wrapper function interface \
can be greatly simplified and expanded for usability.  For example, Calling \
the REFPROP function in the High-Level API using Fortran, requires exactly 23 \
function parameters that must be passed every single time the function is \
called.\
\>", "Text",
 CellChangeTimes->{{3.8250454651711383`*^9, 3.8250455050505066`*^9}, {
  3.8250456923626404`*^9, 3.825045823330488*^9}, {3.82504585559519*^9, 
  3.8250458765870624`*^9}},
 CellID->45361538,ExpressionUUID->"eb6bef31-c826-459f-b22f-2af797241181"],

Cell[TextData[{
 "      CALL REFPROPdll(hFld, hIn, hOut, iUnits, iMass, iFlag, a, b, z, /\
\[LineSeparator]                      Output, hUnits, iUCode, x, y, x3, q, ",
 StyleBox["ierr",
  IgnoreSpellCheck->True],
 ", ",
 StyleBox["herr",
  IgnoreSpellCheck->True],
 ", /\[LineSeparator]                      hFld_length, hIn_length, \
hOut_length, hUnits_length, /\[LineSeparator]                      \
herr_length)"
}], "Text",
 CellChangeTimes->{{3.8250467648036203`*^9, 3.8250467930421486`*^9}},
 FontFamily->"Courier New",
 FontSize->12,
 FontWeight->"Normal",
 Background->GrayLevel[0.85],
 CellID->375240898,ExpressionUUID->"179c04d3-87bc-4c45-97be-f5ca60749578"],

Cell["\<\
The first nine and last five parameters in this call are [in] parameters, \
with the remaining being [out] parameters.  Alternatively, the wrapper \
function can effectively make use of this DLL function with as few as four or \
five input parameters.\
\>", "Text",
 CellChangeTimes->{{3.8250461046487417`*^9, 3.825046167362089*^9}, {
  3.8250462132823086`*^9, 3.8250463257056828`*^9}},
 CellID->463728785,ExpressionUUID->"4c2b51f0-97de-4487-b199-f0f642d1bf67"],

Cell["\<\
For example, to get the molecular weight of a fluid (Carbon Dioxide), the \
wrapper function needs just five parameters to load the fluid and return the \
requested value.\
\>", "Text",
 CellChangeTimes->{{3.8250465593888903`*^9, 3.825046561705696*^9}, {
  3.830011458082909*^9, 3.8300114846517982`*^9}},
 CellID->67473665,ExpressionUUID->"9fcfdbb3-2210-4f2e-8ba2-71217a2a44bf"],

Cell[CellGroupData[{

Cell["\<\
Call the RefProp wrapper with just five parameters (hFld, hIn, hOut, a, b); \
three strings and two numeric values.\
\>", "MathCaption",
 CellChangeTimes->{{3.825046594891959*^9, 3.8250466442430067`*^9}, 
   3.825046937594612*^9, {3.825047553553695*^9, 3.8250475665220146`*^9}, {
   3.830242122770977*^9, 3.830242127914219*^9}},
 CellID->98686011,ExpressionUUID->"f00c9c98-bbd5-40eb-82ad-96d6c48dec8c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{
  "\"\<CO2\>\"", ",", "\"\<\>\"", ",", "\"\<M\>\"", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.82504687408642*^9, 3.8250468915068426`*^9}},
 CellLabel->"In[3]:=",
 CellID->201830295,ExpressionUUID->"6153fb1b-af20-4cde-a79a-71e0036e8f11"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"M\"\>", "\[Rule]", 
   TemplateBox[{"44.0098`", 
     RowBox[{
      "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
       "\"kmol\""}], "kilograms per kilomole", 
     FractionBox["\"Kilograms\"", "\"Kilomoles\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.8250468936690607`*^9, 3.825149372772402*^9, 
  3.8251606936308928`*^9, 3.8251612816533346`*^9},
 CellLabel->"Out[3]=",
 CellID->463223023,ExpressionUUID->"987b480d-6234-4196-8519-6d6a2f06d075"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "For subsequent calls ",
 StyleBox["with the same fluid",
  FontSlant->"Italic"],
 ", the first parameter can, and ",
 StyleBox["should",
  FontSlant->"Italic"],
 ", be omitted; requiring only 4 input parameters - 2 strings and 2 numeric \
values.  Calculate molar density at a fixed temperature and pressure"
}], "MathCaption",
 CellChangeTimes->{{3.8250469086350446`*^9, 3.825046930955386*^9}, {
  3.825046970738023*^9, 3.8250469747622347`*^9}, {3.8250470851311293`*^9, 
  3.8250471218659363`*^9}, {3.8250475056906376`*^9, 3.825047543065732*^9}},
 CellID->221049004,ExpressionUUID->"18a96863-b8c1-4200-aa4d-6ca42c09f607"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<TP\>\"", ",", "\"\<D\>\"", ",", 
   RowBox[{"72", "\[Degree]F"}], ",", 
   RowBox[{"1", "atm"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.82504687408642*^9, 3.8250468915068426`*^9}, {
  3.825046954675*^9, 3.8250469563225408`*^9}, {3.82504713018769*^9, 
  3.8250471510109797`*^9}},
 CellLabel->"In[4]:=",
 CellID->78962887,ExpressionUUID->"b7c322d8-c477-47bc-bb52-8932535ef375"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"D\"\>", "\[Rule]", 
   TemplateBox[{"0.041474052646394484`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.8250469653424234`*^9, 3.825047154823785*^9, 
  3.8251493772215*^9, 3.825161286553235*^9},
 CellLabel->"Out[4]=",
 CellID->222608738,ExpressionUUID->"e6ef7c19-e9f3-4fb1-ab57-112180b3427e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
With the same number of inputs, multiple outputs can be specified.  Calculate \
molar enthalpy, entropy, heat capacity, and speed of sound at a fixed \
temperature and pressure.\
\>", "MathCaption",
 CellChangeTimes->{{3.8250469086350446`*^9, 3.825046930955386*^9}, {
   3.825046970738023*^9, 3.8250469747622347`*^9}, {3.8250470851311293`*^9, 
   3.8250471218659363`*^9}, {3.8250473687218876`*^9, 3.8250474265303264`*^9}, 
   3.8300115749711723`*^9},
 CellID->901006594,ExpressionUUID->"724a3365-41c3-4ca6-a702-0783f3ba3670"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<TP\>\"", ",", "\"\<H S Cp W\>\"", ",", 
   RowBox[{"72", "\[Degree]F"}], ",", 
   RowBox[{"1", "atm"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.82504687408642*^9, 3.8250468915068426`*^9}, {
  3.825046954675*^9, 3.8250469563225408`*^9}, {3.82504713018769*^9, 
  3.8250471510109797`*^9}, {3.825047436810808*^9, 3.82504745638151*^9}},
 CellLabel->"In[5]:=",
 CellID->276260743,ExpressionUUID->"0ce1f178-b095-4292-a576-28759a8dffea"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"H\"\>", "\[Rule]", 
    TemplateBox[{"22158.128415147883`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"mol\""}], "joules per mole", 
      FractionBox["\"Joules\"", "\"Moles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"S\"\>", "\[Rule]", 
    TemplateBox[{"120.09645684386453`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Cp\"\>", "\[Rule]", 
    TemplateBox[{"37.32861127427332`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"W\"\>", "\[Rule]", 
    TemplateBox[{"267.47680386421274`", 
      RowBox[{
       "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], 
      "meters per second", 
      FractionBox["\"Meters\"", "\"Seconds\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8250469653424234`*^9, 3.825047154823785*^9, 
  3.825047462360493*^9, 3.825149382119375*^9, 3.825161289781602*^9},
 CellLabel->"Out[5]=",
 CellID->232909077,ExpressionUUID->"195d783f-b539-4a7d-98ca-a6d9d4288216"]
}, Open  ]]
}, Open  ]],

Cell["\<\
As demonstrated here, the flexibility provided by the Mathematica interface \
greatly improves and simplifies the usability of the REFPROP API.\
\>", "Text",
 CellChangeTimes->{{3.8250463141087165`*^9, 3.8250463161701765`*^9}, {
  3.8250463985698853`*^9, 3.825046404561864*^9}, {3.825046476651083*^9, 
  3.8250464795074463`*^9}, {3.8250465342829866`*^9, 3.825046541841807*^9}, {
  3.8250477245225563`*^9, 3.8250477907943273`*^9}, {3.8300115858271523`*^9, 
  3.8300116117787294`*^9}},
 CellID->54056624,ExpressionUUID->"ff54f01b-a001-4d9e-b149-17f8d69b71d6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[".NET/Link Function Calls to the REFPROP DLL", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.8249991658682966`*^9, 3.824999224850626*^9}, {
  3.825048085995022*^9, 3.8250481061461687`*^9}},
 CellID->96132265,ExpressionUUID->"bfc7308b-f1b6-4d07-9e17-87b149a8bd08"],

Cell[TextData[{
 "The interface to the REFPROP 64-bit DLL functions is provided through a \
built-in interface to .NET Framework called ",
 StyleBox[".Net/Link",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ".  .NET provides functions that can access a DLL and make calls directly to \
the functions it publishes.  Accessing REFPROP in this way, provides many \
benefits:"
}], "Text",
 CellChangeTimes->{{3.8250481137697845`*^9, 3.8250482807941947`*^9}, {
  3.825049468098553*^9, 3.825049474194255*^9}},
 CellID->599789128,ExpressionUUID->"0da66a64-6cee-43dc-8d50-532aac340520"],

Cell["\<\
No external programming or compiler needed - REFPROP functions can be called \
directly from the DLL.\
\>", "BulletedText",
 CellChangeTimes->{{3.825044124138744*^9, 3.8250441690017767`*^9}, 
   3.8250444397546225`*^9, {3.825048308633757*^9, 3.825048328202459*^9}, {
   3.825150108538542*^9, 3.8251501250733624`*^9}, {3.830011629595032*^9, 
   3.8300116309863405`*^9}, 3.830011681474239*^9},
 CellID->118059045,ExpressionUUID->"b2f5ba00-b1a9-436b-9f9e-f4f9b86bb668"],

Cell["\<\
Portability - the code should run on any operating system, provided the \
target Mathematica and REFPROP codes are installed.\
\>", "BulletedText",
 CellChangeTimes->{{3.825044124138744*^9, 3.8250441690017767`*^9}, {
  3.825044338546158*^9, 3.825044446146524*^9}, {3.8250455456738586`*^9, 
  3.8250455477054377`*^9}, {3.8250483385706835`*^9, 3.825048426417826*^9}, {
  3.8300116585146856`*^9, 3.8300116772106686`*^9}},
 CellID->119356857,ExpressionUUID->"ac3bc3cb-4fe5-4eb0-95d1-12c5bf646182"],

Cell["\<\
Longevity - RefpropLink works with REFPROP 9.1 and REFPROP 10, and should \
work with future releases\
\>", "BulletedText",
 CellChangeTimes->{{3.825044124138744*^9, 3.8250441690017767`*^9}, {
  3.825044338546158*^9, 3.825044446146524*^9}, {3.8250455456738586`*^9, 
  3.8250455477054377`*^9}, {3.8250483385706835`*^9, 3.825048426417826*^9}, {
  3.825048489666684*^9, 3.8250485403212585`*^9}},
 CellID->255339440,ExpressionUUID->"8ae74c7a-5cb3-4e60-b710-3cc0c6c7be61"],

Cell["\<\
The drawback to this interface is that calling the DLL functions through the \
.NET interface can be rather slow, due to the overhead of creating and \
releasing .NET objects when making the DLL calls.  For example, the calls \
demonstrated above can take on the order of tenths of seconds on a standard \
Windows 10 PC.\
\>", "Text",
 CellChangeTimes->{{3.8250485533634*^9, 3.825048675707281*^9}, {
  3.825049020786576*^9, 3.825049029554163*^9}, {3.8300116933783927`*^9, 
  3.830011700314866*^9}},
 CellID->34253809,ExpressionUUID->"1df2825e-6076-4d66-ba5e-19a87203f39a"],

Cell[CellGroupData[{

Cell["RefProp call timing; High-Level API", "MathCaption",
 CellChangeTimes->{{3.8250469086350446`*^9, 3.825046930955386*^9}, {
  3.825046970738023*^9, 3.8250469747622347`*^9}, {3.8250470851311293`*^9, 
  3.8250471218659363`*^9}, {3.8250475056906376`*^9, 3.825047543065732*^9}, {
  3.825048703746278*^9, 3.8250487172511683`*^9}, {3.825149439585895*^9, 
  3.8251494481220427`*^9}, {3.8251614064576807`*^9, 3.825161406507519*^9}},
 CellID->161749569,ExpressionUUID->"87c80046-f7ce-4f99-9a72-b4f3e4387264"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AbsoluteTiming", "[", 
    RowBox[{"RefProp", "[", 
     RowBox[{"\"\<TP\>\"", ",", "\"\<D\>\"", ",", 
      RowBox[{"72", "\[Degree]F"}], ",", 
      RowBox[{"1", "atm"}]}], "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], "s"}]], "Input",
 CellChangeTimes->{{3.82504687408642*^9, 3.8250468915068426`*^9}, {
  3.825046954675*^9, 3.8250469563225408`*^9}, {3.82504713018769*^9, 
  3.8250471510109797`*^9}, {3.825048721763133*^9, 3.8250487285469656`*^9}, {
  3.825048774402358*^9, 3.825048945786112*^9}, {3.8251500125631604`*^9, 
  3.8251500194906654`*^9}},
 CellLabel->"In[6]:=",
 CellID->8872921,ExpressionUUID->"6443c664-0c97-4642-8c0c-81cd527066a4"],

Cell[BoxData[
 TemplateBox[{"0.105563`", "\"s\"", "seconds", "\"Seconds\""},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.8250469653424234`*^9, 3.825047154823785*^9, 3.825048740979723*^9, {
   3.825048787493355*^9, 3.825048855932363*^9}, {3.82504889637024*^9, 
   3.825048947047739*^9}, 3.825149387708576*^9, {3.8251500151841516`*^9, 
   3.8251500204052196`*^9}, 3.8251613075860434`*^9},
 CellLabel->"Out[6]=",
 CellID->467396222,ExpressionUUID->"611a29c5-01c3-4d51-bbf0-c2fb4cf293f5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AbsoluteTiming", "[", 
    RowBox[{"RefProp", "[", 
     RowBox[{"\"\<TP\>\"", ",", "\"\<H S Cp W\>\"", ",", 
      RowBox[{"72", "\[Degree]F"}], ",", 
      RowBox[{"1", "atm"}]}], "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], "s"}]], "Input",
 CellChangeTimes->{{3.82504687408642*^9, 3.8250468915068426`*^9}, {
  3.825046954675*^9, 3.8250469563225408`*^9}, {3.82504713018769*^9, 
  3.8250471510109797`*^9}, {3.825048721763133*^9, 3.8250487285469656`*^9}, {
  3.825048774402358*^9, 3.825048968579197*^9}},
 CellLabel->"In[7]:=",
 CellID->398743861,ExpressionUUID->"6e997389-5b79-44b5-b596-2abbf6da5641"],

Cell[BoxData[
 TemplateBox[{"0.1124305`", "\"s\"", "seconds", "\"Seconds\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8250489720399146`*^9, 3.8251493915612755`*^9, 
  3.8251613111913757`*^9},
 CellLabel->"Out[7]=",
 CellID->151549628,ExpressionUUID->"b461d73d-f85e-4243-b022-09bb90e23eae"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Legacy API call timing", "MathCaption",
 CellChangeTimes->{{3.8251494722525234`*^9, 3.8251494827464943`*^9}},
 CellID->708980053,ExpressionUUID->"ae0905b5-dc6f-4222-8111-a369e082634a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AbsoluteTiming", "[", 
    RowBox[{
     SubscriptBox["D", "molar"], "=", 
     RowBox[{
      RowBox[{"tprho", "[", 
       RowBox[{
        RowBox[{"72", "\[Degree]F"}], ",", 
        RowBox[{"1", "atm"}]}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], "s"}]], "Input",
 CellChangeTimes->{{3.82504687408642*^9, 3.8250468915068426`*^9}, {
  3.825046954675*^9, 3.8250469563225408`*^9}, {3.82504713018769*^9, 
  3.8250471510109797`*^9}, {3.825048721763133*^9, 3.8250487285469656`*^9}, {
  3.825048774402358*^9, 3.825048945786112*^9}, {3.825149506394264*^9, 
  3.82514953122584*^9}, {3.8251496221628094`*^9, 3.8251496314898987`*^9}, {
  3.825149738459061*^9, 3.8251497402981443`*^9}},
 CellLabel->"In[8]:=",
 CellID->200024143,ExpressionUUID->"2c3cb6a2-3573-4d08-b2dc-3b3a3261b1ad"],

Cell[BoxData[
 TemplateBox[{"0.0359503`", "\"s\"", "seconds", "\"Seconds\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8251495778852262`*^9, 3.8251496327854333`*^9, 
  3.8251497426518173`*^9, 3.8251613144067774`*^9},
 CellLabel->"Out[8]=",
 CellID->571202970,ExpressionUUID->"0cbec61a-e796-44cc-93fd-923a5c6b4659"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AbsoluteTiming", "[", 
    RowBox[{"therm", "[", 
     RowBox[{
      RowBox[{"72", "\[Degree]F"}], ",", 
      SubscriptBox["D", "molar"]}], "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], "s"}]], "Input",
 CellChangeTimes->{{3.8251496369502697`*^9, 3.8251496976420484`*^9}, {
  3.825149754572004*^9, 3.825149770522357*^9}},
 CellLabel->"In[9]:=",
 CellID->102315502,ExpressionUUID->"476a62f4-f427-480f-8687-c35161580a5c"],

Cell[BoxData[
 TemplateBox[{"0.0396821`", "\"s\"", "seconds", "\"Seconds\""},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.825149640385084*^9, 3.8251497090575285`*^9, {3.825149749054725*^9, 
   3.8251497721529694`*^9}, 3.82516131808597*^9},
 CellLabel->"Out[9]=",
 CellID->32960574,ExpressionUUID->"97dc649a-173e-453d-8216-0fe007af4a4b"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Note that the Legacy API calls take less than half the time as making the \
same calls through the High-Level API call through ",
 Cell[BoxData[
  RowBox[{
   ButtonBox["RefProp",
    BaseStyle->"Link",
    ButtonData->"paclet:RefpropLink/ref/RefProp"], "[", "]"}]], 
  "InlineFormula",ExpressionUUID->"25b887a5-b907-45ce-8165-0110ebb3dd43"],
 ".  This is most likely due to the string processing that has to be \
performed in the underlying REFPROPdll function, which is written in Fortran; \
a language that doesn't handle strings well."
}], "Text",
 CellChangeTimes->{{3.8251498028349304`*^9, 3.8251499833941803`*^9}, {
  3.825161339793927*^9, 3.825161376102829*^9}, {3.830011740642973*^9, 
  3.8300117665815754`*^9}},
 CellID->69411777,ExpressionUUID->"3f9b0b5a-2ad6-4af9-96c2-94315c745190"],

Cell[TextData[{
 "These calls take anywhere from just under 50 ms to 100 ms.  This may not \
seem like a lot, until you want to generate a phase diagram with several \
thousand data points, one call per point, and it takes on the order of ",
 StyleBox["minutes",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " to generate the plot.  In this event, patience is truly a virtue."
}], "Text",
 CellChangeTimes->{{3.8250490111393986`*^9, 3.825049091385836*^9}, {
  3.8250491229783354`*^9, 3.8250491367864447`*^9}, {3.8250495667787027`*^9, 
  3.8250495680662603`*^9}, {3.8251121026019*^9, 3.825112105353513*^9}, {
  3.8251500356414537`*^9, 3.8251500856258326`*^9}},
 CellID->187566636,ExpressionUUID->"9cd1e778-b5d6-4893-bc63-39dde3e44e0b"],

Cell[TextData[{
 "Future versions could use direct calls to the DLL using the Wolfram ",
 StyleBox["LibraryLink",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " functionality or a ",
 StyleBox["WSTP",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " application."
}], "Text",
 CellChangeTimes->{{3.8250491899951744`*^9, 3.8250492201156406`*^9}, {
  3.8250494088669276`*^9, 3.8250494371303854`*^9}, {3.8250494981701765`*^9, 
  3.8250495274179754`*^9}},
 CellID->602626353,ExpressionUUID->"0ddb80ef-ddda-4661-8e14-60079948fba2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Return Values in Lists", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.824999092051667*^9, 3.824999118395258*^9}},
 CellID->77764491,ExpressionUUID->"75b3f451-25de-4685-98ad-60a2a238ed9a"],

Cell["\<\
The API functions that return string results can only return one string per \
call.  However, many of the API functions will return multiple numeric \
values.  To assist with identification of the values returned as well as the \
units applied to each value, numerical results are always returned in the \
form of a ruled List.  This has already been demonstrated above with the \
RefProp wrapper function; returning multiple properties at a single state \
point for Carbon Dioxide.\
\>", "Text",
 CellChangeTimes->{{3.824999133028133*^9, 3.824999150290948*^9}, {
  3.8250520747297773`*^9, 3.825052074914254*^9}, {3.8251116509066114`*^9, 
  3.825111829418338*^9}, {3.8251118619782777`*^9, 3.825112070962469*^9}, {
  3.8251121152022076`*^9, 3.825112230530841*^9}, {3.8251124632286267`*^9, 
  3.825112468314061*^9}, {3.830011803762111*^9, 3.8300118041381083`*^9}},
 CellID->159587105,ExpressionUUID->"6078d736-dd3a-47d0-8dc3-d8ca5da054fc"],

Cell[CellGroupData[{

Cell["Request multiple properties from the RefProp function.", "MathCaption",
 CellChangeTimes->{{3.8250469086350446`*^9, 3.825046930955386*^9}, {
  3.825046970738023*^9, 3.8250469747622347`*^9}, {3.8250470851311293`*^9, 
  3.8250471218659363`*^9}, {3.8250473687218876`*^9, 3.8250474265303264`*^9}, {
  3.825112284138506*^9, 3.825112370378892*^9}},
 CellID->316810936,ExpressionUUID->"847b92ee-2f10-4650-9345-94bd332780f0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"results", "=", 
  RowBox[{"RefProp", "[", 
   RowBox[{"\"\<TP\>\"", ",", "\"\<D H S Cp W\>\"", ",", 
    RowBox[{"72", "\[Degree]F"}], ",", 
    RowBox[{"1", "atm"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.82504687408642*^9, 3.8250468915068426`*^9}, {
  3.825046954675*^9, 3.8250469563225408`*^9}, {3.82504713018769*^9, 
  3.8250471510109797`*^9}, {3.825047436810808*^9, 3.82504745638151*^9}, {
  3.82511229758652*^9, 3.8251122989867764`*^9}, {3.82511277871608*^9, 
  3.8251127810029893`*^9}},
 CellLabel->"In[10]:=",
 CellID->155324771,ExpressionUUID->"4a271e27-2442-4ce6-904f-0f71af5a5fef"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"D\"\>", "\[Rule]", 
    TemplateBox[{"0.041474052646394484`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"H\"\>", "\[Rule]", 
    TemplateBox[{"22158.128415147883`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"mol\""}], "joules per mole", 
      FractionBox["\"Joules\"", "\"Moles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"S\"\>", "\[Rule]", 
    TemplateBox[{"120.09645684386453`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Cp\"\>", "\[Rule]", 
    TemplateBox[{"37.32861127427332`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"W\"\>", "\[Rule]", 
    TemplateBox[{"267.47680386421274`", 
      RowBox[{
       "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], 
      "meters per second", 
      FractionBox["\"Meters\"", "\"Seconds\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8250469653424234`*^9, 3.825047154823785*^9, 
  3.825047462360493*^9, 3.8251123868648376`*^9, 3.825112782394272*^9, 
  3.825161416156719*^9},
 CellLabel->"Out[10]=",
 CellID->267833108,ExpressionUUID->"d593eddd-a264-41c7-b97b-6058aafb2d6b"]
}, Open  ]]
}, Open  ]],

Cell["\<\
Each element in the return List consists of list pairs, of which the first \
sub-element is the \"rule\" followed by its associated numerical value.  This \
list can be transposed into a table with the rules in the first column and \
the numerical values in the second column.\
\>", "Text",
 CellChangeTimes->{{3.8251124221973667`*^9, 3.8251124410269885`*^9}, {
  3.825112475163742*^9, 3.8251125925139737`*^9}},
 CellID->799296246,ExpressionUUID->"6aa9597c-09b6-4688-b5b1-012580aed0bc"],

Cell[CellGroupData[{

Cell["Display the RefProp results in table form.", "MathCaption",
 CellChangeTimes->{{3.8250469086350446`*^9, 3.825046930955386*^9}, {
  3.825046970738023*^9, 3.8250469747622347`*^9}, {3.8250470851311293`*^9, 
  3.8250471218659363`*^9}, {3.8250473687218876`*^9, 3.8250474265303264`*^9}, {
  3.825112284138506*^9, 3.825112370378892*^9}, {3.82511273241787*^9, 
  3.8251127496029186`*^9}},
 CellID->480708153,ExpressionUUID->"e1006df8-2971-4733-a35d-14192f9240e3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Apply", "[", 
   RowBox[{"List", ",", "results", ",", 
    RowBox[{"{", "1", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.82504687408642*^9, 3.8250468915068426`*^9}, {
  3.825046954675*^9, 3.8250469563225408`*^9}, {3.82504713018769*^9, 
  3.8250471510109797`*^9}, {3.825047436810808*^9, 3.82504745638151*^9}, {
  3.82511229758652*^9, 3.8251122989867764`*^9}, {3.8251126889720335`*^9, 
  3.8251127073877935`*^9}, {3.8251127932192965`*^9, 3.8251127946983747`*^9}},
 CellLabel->"In[11]:=",
 CellID->462806898,ExpressionUUID->"7dfc74a3-8049-40d5-b843-a6d6e22c4c0c"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"D\"\>", 
     TemplateBox[{"0.041474052646394484`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"H\"\>", 
     TemplateBox[{"22158.128415147883`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"S\"\>", 
     TemplateBox[{"120.09645684386453`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"Cp\"\>", 
     TemplateBox[{"37.32861127427332`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"W\"\>", 
     TemplateBox[{"267.47680386421274`", 
       RowBox[{
        "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}],
        "meters per second", 
       FractionBox["\"Meters\"", "\"Seconds\""]},
      "Quantity"]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8250469653424234`*^9, 3.825047154823785*^9, 
  3.825047462360493*^9, 3.8251123868648376`*^9, 3.8251127103189898`*^9, 
  3.825112795890185*^9, 3.825161422999423*^9},
 CellLabel->"Out[11]//TableForm=",
 CellID->110586000,ExpressionUUID->"5f821492-eb20-4123-9ded-f658fda2915f"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "In this format, 2 columns by ",
 StyleBox["n",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " rows, the result is easier to read and easier to visualize how to extract \
individual elements from the list.  List elements are extracted by following \
the expression with a [[row,column]] index specification, as demonstrated \
below."
}], "Text",
 CellChangeTimes->{{3.825112822130994*^9, 3.825112932627551*^9}, {
  3.825112971650209*^9, 3.8251130143300915`*^9}, {3.8251130520592117`*^9, 
  3.8251130666023607`*^9}},
 CellID->366168089,ExpressionUUID->"c736fa6a-1207-4978-9bb9-0a3ea5e67eb0"],

Cell[CellGroupData[{

Cell[TextData[{
 "Extract the molar density value from the second element in the first row of \
the returned List, assigning the value to a variable.  Note that the variable \
cannot use the symbol ",
 StyleBox["D",
  FontWeight->"Bold"],
 ", since ",
 StyleBox["D",
  FontWeight->"Bold"],
 " is a reserved Mathematica function symbol, so a subscript is added."
}], "MathCaption",
 CellChangeTimes->{{3.82511294273951*^9, 3.8251129621067257`*^9}, {
  3.825113115489641*^9, 3.825113162410184*^9}, {3.825113222241194*^9, 
  3.8251132299545555`*^9}, {3.8251132828262177`*^9, 3.8251133417626047`*^9}},
 CellID->762513755,ExpressionUUID->"d6e6240a-dd5e-4c28-bea2-c0e54949ce34"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["D", "molar"], "=", 
  RowBox[{"results", "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.825113078599276*^9, 3.8251131067789297`*^9}},
 CellLabel->"In[12]:=",
 CellID->282938116,ExpressionUUID->"be0bae48-16c2-48c9-8391-6550201264db"],

Cell[BoxData[
 TemplateBox[{"0.041474052646394484`", 
   RowBox[{
    "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}], 
   "moles per liter", 
   FractionBox["\"Moles\"", "\"Liters\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.825113175654744*^9, 3.825161429374407*^9},
 CellLabel->"Out[12]=",
 CellID->209006648,ExpressionUUID->"5828b14a-cb49-4dfb-b8eb-f74908ab8c75"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Extract the molar Entropy value from the second element in the third row of \
the returned List.\
\>", "MathCaption",
 CellChangeTimes->{{3.82511294273951*^9, 3.8251129621067257`*^9}, {
  3.825113115489641*^9, 3.825113162410184*^9}, {3.8251132019304857`*^9, 
  3.8251132130906734`*^9}},
 CellID->589270089,ExpressionUUID->"02629376-db78-4842-b082-848b1f5d16db"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"S", "=", 
  RowBox[{"results", "[", 
   RowBox[{"[", 
    RowBox[{"3", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.825113078599276*^9, 3.8251131067789297`*^9}, {
  3.8251132402191095`*^9, 3.825113257771179*^9}},
 CellLabel->"In[13]:=",
 CellID->235694244,ExpressionUUID->"380443ce-a465-4818-91dc-06c62fb6faee"],

Cell[BoxData[
 TemplateBox[{"120.09645684386453`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
     "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
   "joules per kelvin mole", 
   FractionBox["\"Joules\"", 
    RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.825113175654744*^9, 3.82511326050487*^9, 
  3.8251614411688423`*^9},
 CellLabel->"Out[13]=",
 CellID->264920853,ExpressionUUID->"63fa63f2-78cc-4135-8526-747f6f5531b4"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 StyleBox["NOTE:",
  FontWeight->"Bold"],
 " For consistency, even if an API function only returns one numerical \
result, it is still returned in a single-row, ruled List.  This leaves no \
doubt as to the value being returned in each array position or its units."
}], "Text",
 CellChangeTimes->{{3.8251138074434953`*^9, 3.8251138893065796`*^9}, {
  3.825164674737914*^9, 3.8251646755865793`*^9}, {3.8251647074734936`*^9, 
  3.825164747666024*^9}, {3.830011913609999*^9, 3.8300119378182297`*^9}},
 CellID->41088186,ExpressionUUID->"bc6c6787-812f-4fbb-a927-5454618d12af"],

Cell[CellGroupData[{

Cell["\<\
Use RefProp to return and store a single quantity (must still extract from \
list).\
\>", "MathCaption",
 CellChangeTimes->{{3.825046594891959*^9, 3.8250466442430067`*^9}, 
   3.825046937594612*^9, {3.825047553553695*^9, 3.8250475665220146`*^9}, {
   3.8251139551136537`*^9, 3.8251139813305264`*^9}, {3.825164776913821*^9, 
   3.8251648018581247`*^9}, {3.8251648528093524`*^9, 3.825164868634035*^9}},
 CellID->141866262,ExpressionUUID->"c4d19ac4-4678-4c02-a5a8-8739c5da7e30"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"molWt", "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{
    "\"\<CO2\>\"", ",", "\"\<\>\"", ",", "\"\<M\>\"", ",", "0", ",", "0"}], 
    "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8251139949451246`*^9, 3.8251140196021957`*^9}},
 CellLabel->"In[14]:=",
 CellID->371740740,ExpressionUUID->"02d9d576-5ef7-48a7-b1af-6a1ef148cde8"],

Cell[BoxData[
 TemplateBox[{"44.0098`", 
   RowBox[{
    "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"kmol\""}],
    "kilograms per kilomole", 
   FractionBox["\"Kilograms\"", "\"Kilomoles\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.825114022566303*^9, 3.8251614927176027`*^9},
 CellLabel->"Out[14]=",
 CellID->348905257,ExpressionUUID->"faf7132f-0c96-40b4-9bcd-5cebd2b3c020"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "As demonstrated here, the intermediate List variable used previously, ",
 StyleBox["result",
  FontWeight->"Bold"],
 ", is not really needed; the indexing can be applied directly to the calling \
function to extract just the required value.  In fact, an entire set of \
numerical values can be assigned to individual variables in one step using \
the index All for the row index and 2 for the column index."
}], "Text",
 CellChangeTimes->{{3.8251134065314584`*^9, 3.8251134826429167`*^9}, {
  3.8308357663238907`*^9, 3.830835961619416*^9}},
 CellID->668001956,ExpressionUUID->"d7c574fc-1f5e-4430-8713-ceee376c5e16"],

Cell[CellGroupData[{

Cell["\<\
Call RefProp, assigning the second column numerical values immediately to \
variables.\
\>", "MathCaption",
 CellChangeTimes->{{3.825113498923414*^9, 3.8251135460673337`*^9}},
 CellID->271031798,ExpressionUUID->"75a1ffc2-85d5-4845-bd78-f8939371ff20"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["D", "molar"], ",", "H", ",", " ", "S", ",", " ", "Cp", ",",
      "W"}], "}"}], "=", 
   RowBox[{
    RowBox[{"RefProp", "[", 
     RowBox[{"\"\<TP\>\"", ",", "\"\<D H S Cp W\>\"", ",", 
      RowBox[{"72", "\[Degree]F"}], ",", 
      RowBox[{"1", "atm"}]}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.825113567570865*^9, 3.8251136262180595`*^9}},
 CellLabel->"In[15]:=",
 CellID->394990815,ExpressionUUID->"2a07ad7f-a40b-494f-a880-95f2c268862b"]
}, Open  ]],

Cell["\<\
All five variables are now assigned and can be used in subsequent \
calculations.  This extraction method is used regularly in the other \
RefpropLink tutorials.\
\>", "Text",
 CellChangeTimes->{{3.8251141778191843`*^9, 3.825114197009844*^9}, {
  3.8308360007467394`*^9, 3.830836024754512*^9}},
 CellID->40145104,ExpressionUUID->"348ba4a4-8d77-421d-ac5f-224364bf1bdb"],

Cell[CellGroupData[{

Cell["Convert molar quantities to mass-based quantities", "MathCaption",
 CellChangeTimes->{{3.8251142073552103`*^9, 3.825114224691828*^9}},
 CellID->317032404,ExpressionUUID->"7139edca-22f5-41c5-ab74-07aa258c44a6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["H", "mass"], "=", 
  RowBox[{"H", "/", "molWt"}]}]], "Input",
 CellChangeTimes->{
  3.8251136347831264`*^9, {3.8251137446434093`*^9, 3.8251137566423297`*^9}, {
   3.8251140385465713`*^9, 3.8251140467705536`*^9}},
 CellLabel->"In[16]:=",
 CellID->16982971,ExpressionUUID->"eafe43fe-1efa-41c4-8f52-5ea0f0eecabf"],

Cell[BoxData[
 TemplateBox[{"503481.6885136466`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"kg\""}], 
   "joules per kilogram", 
   FractionBox["\"Joules\"", "\"Kilograms\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.8251136363160267`*^9, {3.825114041369024*^9, 3.825114049783527*^9}, 
   3.8251615034978027`*^9},
 CellLabel->"Out[16]=",
 CellID->167991111,ExpressionUUID->"7615fa53-9f23-4fd6-8cee-4aa5f743d7bf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["S", "mass"], "=", 
  RowBox[{"S", "/", "molWt"}]}]], "Input",
 CellChangeTimes->{
  3.825113637743238*^9, {3.8251140536750927`*^9, 3.8251140619070807`*^9}},
 CellLabel->"In[17]:=",
 CellID->610772491,ExpressionUUID->"40087b3f-9796-42f2-adb6-82cc105c9c74"],

Cell[BoxData[
 TemplateBox[{"2728.8571373617815`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", 
     "\[ThinSpace]", "\"K\"", "\[InvisibleSpace]", "\")\""}], 
   "joules per kilogram kelvin", 
   FractionBox["\"Joules\"", 
    RowBox[{"\"Kelvins\"", " ", "\"Kilograms\""}]]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8251136387225914`*^9, 3.8251140634200487`*^9, 
  3.825161513044252*^9},
 CellLabel->"Out[17]=",
 CellID->934667,ExpressionUUID->"746c40a7-b758-4100-b2c1-44a2607a1bb0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["Cp", "mass"], "=", 
  RowBox[{"Cp", "/", "molWt"}]}]], "Input",
 CellChangeTimes->{{3.8251136400550284`*^9, 3.825113640306386*^9}, {
  3.825114069100875*^9, 3.8251140798740416`*^9}},
 CellLabel->"In[18]:=",
 CellID->221000063,ExpressionUUID->"2ff3ea78-d1c3-450a-9613-5b37ab0e39eb"],

Cell[BoxData[
 TemplateBox[{"848.1886142239529`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", 
     "\[ThinSpace]", "\"K\"", "\[InvisibleSpace]", "\")\""}], 
   "joules per kilogram kelvin", 
   FractionBox["\"Joules\"", 
    RowBox[{"\"Kelvins\"", " ", "\"Kilograms\""}]]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.825113641220911*^9, 3.825114083263008*^9, 
  3.825161516842634*^9},
 CellLabel->"Out[18]=",
 CellID->557268634,ExpressionUUID->"9cbcb9d2-c469-40a3-a10f-911f3519a571"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UnitConvert", "[", 
  RowBox[{"W", ",", "kph"}], "]"}]], "Input",
 CellChangeTimes->{
  3.8251136426551046`*^9, {3.825114093394918*^9, 3.8251141181307793`*^9}, {
   3.8251142435005655`*^9, 3.825114292267145*^9}, {3.8251144517307987`*^9, 
   3.8251145382195415`*^9}, {3.82516152480434*^9, 3.825161531330865*^9}},
 CellLabel->"In[19]:=",
 CellID->680762625,ExpressionUUID->"3347ce58-9ceb-4651-9b3f-d85f83da46c4"],

Cell[BoxData[
 TemplateBox[{"962.9164939111658`", 
   RowBox[{
    "\"km\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"h\""}], 
   "kilometers per hour", 
   FractionBox["\"Kilometers\"", "\"Hours\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.8251136436993165`*^9, {3.825114109025098*^9, 3.825114119237791*^9}, {
   3.825114244509839*^9, 3.825114293029108*^9}, {3.825114522648179*^9, 
   3.825114539211895*^9}, 3.8251615330093775`*^9},
 CellLabel->"Out[19]=",
 CellID->70568261,ExpressionUUID->"426e0b32-8690-46f6-ba87-fed7375624bd"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Return Values with Units", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.824999092051667*^9, 3.824999118395258*^9}, {
  3.825053771882901*^9, 3.8250537733140736`*^9}, {3.825162295441204*^9, 
  3.8251622988810034`*^9}},
 CellID->12415996,ExpressionUUID->"4832a15d-4cd1-4a89-8b9e-4fbd897f58ee"],

Cell[TextData[{
 "By default, numerical values are returned from the wrapper functions as \
Wolfram Language ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "7d87b45a-770e-489d-b78d-2ff3b66a3b24"],
 " types, which have the appropriate units applied in the ",
 StyleBox["NIST REFPROP",
  FontWeight->"Bold"],
 " \"DEFAULT\" units system (modified SI units with pressure in kPa, instead \
of Pa).  While the High-Level API has the ability to use other unit systems, \
it is not recommended to use this facility to avoid confusion with the units \
handling built in to Mathematica through its Quantity types."
}], "Text",
 CellChangeTimes->{{3.824999133028133*^9, 3.824999150290948*^9}, {
  3.8250986904188013`*^9, 3.8250987069622717`*^9}, {3.8251615604979076`*^9, 
  3.8251616240021095`*^9}, {3.825161780281765*^9, 3.8251618384573755`*^9}, {
  3.8251618926515074`*^9, 3.825162072010417*^9}, {3.825162303793914*^9, 
  3.8251623049188824`*^9}, {3.8300119698585176`*^9, 3.830011970242491*^9}},
 CellID->237331234,ExpressionUUID->"f5335512-3f9a-4ff1-9fe0-91cd0394973b"],

Cell[TextData[{
 "Pre-defined unit symbols are provided by RefpropLink for most standard \
units used in thermodynamic calculations.  These unit symbols, demonstrated \
in this tutorial's examples, greatly simplify the application and conversion \
of units.  See ",
 StyleBox[ButtonBox["RefpropLink Units Implementation",
  BaseStyle->"Link",
  ButtonData->"paclet:RefpropLink/tutorial/Units"],
  FontWeight->"Bold"],
 " for more info."
}], "Text",
 CellChangeTimes->{{3.825163720042348*^9, 3.8251638334182816`*^9}, {
  3.825163869090289*^9, 3.8251639131914544`*^9}, {3.8308360648502445`*^9, 
  3.8308360692026005`*^9}},
 CellID->26690458,ExpressionUUID->"9c79ff00-e84e-493d-86ac-402f94577157"],

Cell[TextData[{
 "It is ",
 StyleBox["strongly recommended",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " to use RefpropLink in this mode, as it will protect from unit conversion \
errors in the engineering and scientific calculations being performed.  This \
behavior is fully demonstrated in this tutorial."
}], "Text",
 CellChangeTimes->{{3.824999133028133*^9, 3.824999150290948*^9}, {
  3.8250986904188013`*^9, 3.8250987069622717`*^9}, {3.8251615604979076`*^9, 
  3.8251616240021095`*^9}, {3.825161780281765*^9, 3.8251618384573755`*^9}, {
  3.8251618926515074`*^9, 3.825162072010417*^9}, {3.825162303793914*^9, 
  3.8251624023062077`*^9}, {3.825163294714328*^9, 3.8251633161699567`*^9}},
 CellID->313159363,ExpressionUUID->"1623fc86-5e2d-4af3-afbc-0e0a80bb712f"],

Cell[TextData[{
 "If absolutely necessary to perform calculations with ",
 StyleBox["non",
  FontSlant->"Italic"],
 "-",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "987f06fe-9070-4e21-8cf0-52f579143e68"],
 ", Real values, the wrapper functions in RefpropLink have been set up to \
provide ",
 StyleBox["non",
  FontSlant->"Italic"],
 "-",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "f55598d8-daa7-428b-b44a-264cfb8bbbf4"],
 " results if ",
 StyleBox["non",
  FontSlant->"Italic"],
 "-",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "4e7062e5-4f3b-42e5-abee-298b0bff36b2"],
 " numerical inputs (",
 Cell[BoxData[
  RowBox[{
   ButtonBox["RefProp",
    BaseStyle->"Link",
    ButtonData->"paclet:RefpropLink/ref/RefProp"], "[", "]"}]], 
  "InlineFormula",ExpressionUUID->"ca042b4f-d3bc-439f-97d3-3508eb455d08"],
 " parameters ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "bfc499aa-e225-475d-bcbc-9ed44eb88475"],
 " and ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "dea337c5-c2ec-43c9-a33c-a8cf68788261"],
 ") are provided.  For functions that are state-point independent and do not \
require numerical inputs, a function Option (",
 Cell[BoxData[
 "SuppressUnits"], "InlineFormula",ExpressionUUID->
  "0f175fd9-fe8c-4f22-9428-c0b1ecbec18b"],
 " -> True) can be set to suppress the application of units.  In this mode, "
}], "Text",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.8251621081627817`*^9, 3.825162227666391*^9}, {
   3.8251622714613514`*^9, 3.8251622879631944`*^9}, {3.8251624586655045`*^9, 
   3.8251627271311827`*^9}, 3.8251639342800646`*^9},
 CellID->349481607,ExpressionUUID->"f615dba5-0976-47af-8cc4-a0ca68762f4c"],

Cell[TextData[{
 "The input ",
 StyleBox["values",
  FontSlant->"Italic"],
 " ",
 StyleBox["must",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True}],
 " be converted manually and supplied in the Unit System being used"
}], "BulletedText",
 CellChangeTimes->{{3.8251628747223816`*^9, 3.8251629263130474`*^9}, {
  3.8251633863378897`*^9, 3.825163426753828*^9}},
 CellID->124442481,ExpressionUUID->"3fab5761-915d-4545-8337-133a2e973e57"],

Cell["\<\
The default units for Legacy API calls are expressed in the returned List rule\
\>", "BulletedText",
 CellChangeTimes->{{3.8251628747223816`*^9, 3.8251629263130474`*^9}, {
  3.825163640154433*^9, 3.82516364568165*^9}},
 CellID->921690246,ExpressionUUID->"e3b3120b-059e-458a-a900-7d9ad284ed86"],

Cell["\<\
Changing REFPROPdll's units system is valid (See the NIST REFPROP DLL \
documentation for more info)\
\>", "BulletedText",
 CellChangeTimes->{{3.8251628747223816`*^9, 3.8251630068900003`*^9}, {
  3.825163050321246*^9, 3.825163071402854*^9}, {3.8251649026253357`*^9, 
  3.825164916146156*^9}},
 CellID->444447270,ExpressionUUID->"da261086-07d1-475e-bf6d-1b51b9e2895f"],

Cell["\<\
If REFPROPdll's units system is changed for a given call, the default units \
printed in the returned List rules should be ignored.\
\>", "BulletedText",
 CellChangeTimes->{{3.8251628747223816`*^9, 3.8251629263130474`*^9}, {
  3.8251630204019*^9, 3.825163032866913*^9}, {3.825163083258175*^9, 
  3.825163120418251*^9}, {3.8300120031624203`*^9, 3.8300120380101967`*^9}},
 CellID->32836395,ExpressionUUID->"7cd0ca69-282d-4228-ad7e-f5bf2a776a38"],

Cell[CellGroupData[{

Cell["Examples of Units Suppression using non-Quantity inputs:", "MathCaption",
 CellChangeTimes->{{3.825163149283043*^9, 3.8251631623870354`*^9}, {
  3.8251636741057167`*^9, 3.825163696689784*^9}},
 CellID->44424033,ExpressionUUID->"7fbbe934-88f5-4915-b069-29b95cfbc2fa"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Tmag", "=", 
    RowBox[{"QuantityMagnitude", "[", 
     RowBox[{
      RowBox[{"72", "\[Degree]F"}], ",", "K"}], "]"}]}], ";"}], "   ", 
  RowBox[{"(*", " ", 
   RowBox[{"default", " ", "temperature", " ", "units"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Pmag", " ", "=", " ", 
   RowBox[{"QuantityMagnitude", "[", 
    RowBox[{
     RowBox[{"1", "atm"}], ",", "kPa"}], "]"}]}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"default", " ", "pressure", " ", "units"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"RefProp", "[", 
   RowBox[{
   "\"\<TP\>\"", ",", "\"\<D H S Cp W\>\"", ",", "Tmag", ",", "Pmag"}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.825163488882705*^9, 3.825163593514569*^9}},
 CellLabel->"In[20]:=",
 CellID->27974498,ExpressionUUID->"0b1bd62b-ab6f-4802-9740-7b3e6ced3a3f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"D\"\>", "\[Rule]", "0.041474052646394484`"}], ",", 
   RowBox[{"\<\"H\"\>", "\[Rule]", "22158.128415147883`"}], ",", 
   RowBox[{"\<\"S\"\>", "\[Rule]", "120.09645684386453`"}], ",", 
   RowBox[{"\<\"Cp\"\>", "\[Rule]", "37.32861127427332`"}], ",", 
   RowBox[{"\<\"W\"\>", "\[Rule]", "267.47680386421274`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.825163614789688*^9},
 CellLabel->"Out[21]=",
 CellID->405396610,ExpressionUUID->"d9bdf787-f3af-42dc-bfdc-ec01fe154e66"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Units Suppression with non-state dependent functions:", "MathCaption",
 CellChangeTimes->{{3.8251640416344647`*^9, 3.82516405574676*^9}},
 CellID->174335361,ExpressionUUID->"4539fc08-ce26-46b8-9b4a-e369756973cc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<\>\"", ",", "\"\<M\>\"", ",", "0", ",", "0", ",", 
   RowBox[{"SuppressUnits", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.825164089553836*^9, 3.8251641102664576`*^9}},
 CellLabel->"In[22]:=",
 CellID->106779959,ExpressionUUID->"f030ed7c-785d-4487-a715-961eef6e5221"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"M\"\>", "\[Rule]", "44.0098`"}], "}"}]], "Output",
 CellChangeTimes->{3.8251641250758266`*^9},
 CellLabel->"Out[22]=",
 CellID->780476960,ExpressionUUID->"bd5c8c54-7cd0-4c6e-8a43-25ced5fe7c02"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"info", "[", 
  RowBox[{"SuppressUnits", "\[Rule]", "True"}], "]"}]], "Input",
 CellChangeTimes->{{3.825164141149876*^9, 3.8251641565297585`*^9}},
 CellLabel->"In[23]:=",
 CellID->325279624,ExpressionUUID->"61f1c51a-38b3-4d11-bb62-4db46d78d836"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"wmm [g/mol]\"\>", "\[Rule]", "44.0098`"}], ",", 
   RowBox[{"\<\"Ttriple [K]\"\>", "\[Rule]", "216.592`"}], ",", 
   RowBox[{"\<\"Tnbpt [K]\"\>", "\[Rule]", "194.686`"}], ",", 
   RowBox[{"\<\"Tcrit [K]\"\>", "\[Rule]", "304.1282`"}], ",", 
   RowBox[{"\<\"Pcrit [kPa]\"\>", "\[Rule]", "7377.3`"}], ",", 
   RowBox[{"\<\"Dcrit [mol/L]\"\>", "\[Rule]", "10.6249063`"}], ",", 
   RowBox[{"\<\"Zcrit\"\>", "\[Rule]", "0.27458637534354646`"}], ",", 
   RowBox[{"\<\"acf\"\>", "\[Rule]", "0.22394`"}], ",", 
   RowBox[{"\<\"dip [debye]\"\>", "\[Rule]", "0.`"}], ",", 
   RowBox[{"\<\"Rgas [J/mol-K]\"\>", "\[Rule]", "8.31451`"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.825164158292013*^9},
 CellLabel->"Out[23]=",
 CellID->43207614,ExpressionUUID->"313b4c8b-c3dd-4168-97a1-7004250a2652"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Wrapper Function Attributes ", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.824999092051667*^9, 3.824999118395258*^9}, {
  3.8250516688579955`*^9, 3.8250516741787395`*^9}, {3.8250517078497114`*^9, 
  3.8250517241541452`*^9}, {3.825052052681728*^9, 3.8250520582677965`*^9}},
 CellID->454572720,ExpressionUUID->"8d433c70-5e70-41fa-97e5-04df88854fb8"],

Cell[TextData[{
 "All of the API function wrappers have the attribute ",
 StyleBox["Protected",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ".  Only a few of the functions have the attribute  ",
 StyleBox["Listable",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " by default, as this can create a conflict when passing mixture component \
arrays.  The only functions that are ",
 StyleBox["Listable",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " by default are the Legacy API information functions that do not require a \
mixture composition as an input parameter (e.g. info, wmoli, name, longname, \
and casn).  No other function attributes are set."
}], "Text",
 CellChangeTimes->{{3.824999133028133*^9, 3.824999150290948*^9}, {
   3.825051684010453*^9, 3.8250517424591722`*^9}, 3.8250518906988087`*^9, {
   3.830012060842104*^9, 3.8300121429214945`*^9}, {3.830242337545972*^9, 
   3.830242346058199*^9}, {3.830835421951189*^9, 3.830835572298966*^9}},
 CellID->273680782,ExpressionUUID->"8b38b07b-983b-482e-ad1a-f82e74b89413"],

Cell[CellGroupData[{

Cell["Function Attributes for High-Level and Legacy API Functions", \
"MathCaption",
 CellChangeTimes->{{3.8250517522200727`*^9, 3.8250517667233257`*^9}, {
  3.8251642367372956`*^9, 3.82516425130634*^9}},
 CellID->24839778,ExpressionUUID->"8d5d6548-ec60-4f8c-b461-3adf0e59054e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Attributes", "[", "RefProp", "]"}]], "Input",
 CellChangeTimes->{{3.8250517852308083`*^9, 3.8250517932992353`*^9}},
 CellLabel->"In[1]:=",
 CellID->936167206,ExpressionUUID->"78286126-2535-408d-b84c-a78aa387162a"],

Cell[BoxData[
 RowBox[{"{", "Protected", "}"}]], "Output",
 CellChangeTimes->{3.825051794787286*^9, 3.825164221262643*^9, 
  3.830014506981388*^9},
 CellLabel->"Out[1]=",
 CellID->187165966,ExpressionUUID->"a6a659ee-1b7e-488a-8570-a7ffc8650589"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Attributes", "[", "name", "]"}]], "Input",
 CellChangeTimes->{{3.8250526564802628`*^9, 3.8250526661713505`*^9}},
 CellLabel->"In[2]:=",
 CellID->40283992,ExpressionUUID->"363aebd1-d7b2-4d01-9f71-ea2ab30d9bd5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Listable", ",", "Protected"}], "}"}]], "Output",
 CellChangeTimes->{3.8250526714741726`*^9, 3.8251642255202584`*^9, 
  3.830014511969068*^9},
 CellLabel->"Out[2]=",
 CellID->242782945,ExpressionUUID->"c91826c5-d14e-47e8-9c07-7e3514d9b614"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Listable Attribute", "Subsection",
 CellChangeTimes->{{3.8250536950114393`*^9, 3.8250537122663035`*^9}},
 CellID->7303427,ExpressionUUID->"a0aecd40-8a51-4dd6-990e-ecf65120395d"],

Cell[TextData[{
 "The ",
 StyleBox["Listable",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " attribute allows a List of numeric values to be supplied as a parameter \
wherever a numeric parameter is expected.  The resulting behavior, is that \
the function is called multiple times, once for each numeric value in the \
list provided."
}], "Text",
 CellChangeTimes->{{3.8250518530674553`*^9, 3.8250519903304424`*^9}, 
   3.8250525631458206`*^9},
 CellID->405290370,ExpressionUUID->"b9357122-21eb-47f5-a56d-6770d40c3c0b"],

Cell[TextData[{
 "This attribute is not applied by default, since it causes some problems \
when calling functions with mixtures that provide mixture composition as a \
List of values.  However, when using pure fluids only, the ",
 StyleBox["Listable",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " attribute can be applied to any functions that need to use it."
}], "Text",
 CellChangeTimes->{{3.825587874953845*^9, 3.825588004418649*^9}},
 CellID->226711794,ExpressionUUID->"f97ae6ad-a7d0-4e7b-a368-0ade1403a9a2"],

Cell[CellGroupData[{

Cell["\<\
Apply the Listable attribute to the desired API function when using pure \
fluids.\
\>", "MathCaption",
 CellChangeTimes->{{3.8255880234986343`*^9, 3.825588053643033*^9}},
 CellID->186715771,ExpressionUUID->"c7425b5d-0d41-4226-897a-bfc5080cf43e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetAttributes", "[", 
   RowBox[{"RefProp", ",", 
    RowBox[{"{", "Listable", "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.825588060949526*^9, 3.825588099113482*^9}},
 CellLabel->"In[23]:=",
 CellID->316887650,ExpressionUUID->"d743ef72-e42e-4ec3-b76a-404eea798d1f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Retrieve the fluid density at atmospheric pressure and several different \
temperatures (two below the boiling point and two above the boiling point).\
\>", "MathCaption",
 CellChangeTimes->{{3.8250517522200727`*^9, 3.8250517667233257`*^9}, {
  3.8250527971541586`*^9, 3.8250528148827267`*^9}, {3.825052935866269*^9, 
  3.825052972321766*^9}, {3.8250531324346886`*^9, 3.8250531758665524`*^9}},
 CellID->764800028,ExpressionUUID->"788ab824-288b-4eb7-9976-5dba55acdd99"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<Water\>\"", ",", "\"\<TP\>\"", ",", "\"\<D\>\"", ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"72", ",", "150", ",", "250", ",", "300"}], "}"}], 
    "\[Degree]F"}], ",", 
   RowBox[{"1", "atm"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.82504687408642*^9, 3.8250468915068426`*^9}, {
  3.825046954675*^9, 3.8250469563225408`*^9}, {3.82504713018769*^9, 
  3.8250471510109797`*^9}, {3.8250529801468725`*^9, 3.825053010970456*^9}, {
  3.8250530592034616`*^9, 3.825053120738957*^9}},
 CellLabel->"In[24]:=",
 CellID->142389452,ExpressionUUID->"0a6b26a8-334b-40f2-a919-f2170a8af667"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"D\"\>", "\[Rule]", 
     TemplateBox[{"55.38206688848727`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"D\"\>", "\[Rule]", 
     TemplateBox[{"54.41207497082873`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"D\"\>", "\[Rule]", 
     TemplateBox[{"0.03127734542890842`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"D\"\>", "\[Rule]", 
     TemplateBox[{"0.029124597871330784`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8250469653424234`*^9, 3.825047154823785*^9, 3.8250530223390303`*^9, {
   3.825053066197795*^9, 3.8250530796857257`*^9}, 3.8250531235763426`*^9, 
   3.825164553925127*^9, 3.8255881486121054`*^9},
 CellLabel->"Out[24]=",
 CellID->370782116,ExpressionUUID->"56924e62-4208-482b-9c9e-53d94de605cb"]
}, Open  ]]
}, Open  ]],

Cell["\<\
Note that one results sub-List is returned for each input List element; all \
contained in a nested List.\
\>", "Text",
 CellChangeTimes->{{3.8250534195250635`*^9, 3.825053494300101*^9}, {
  3.82516429205037*^9, 3.825164397137463*^9}, {3.8255881186970916`*^9, 
  3.8255881379446564`*^9}},
 CellID->92346773,ExpressionUUID->"648ad119-4c00-4990-bd8e-ede837226472"],

Cell["\<\
Note that the temperature unit was applied to all of the input List elements \
at once, using the distributed property of Mathematica Lists.\
\>", "Text",
 CellChangeTimes->{{3.8250535455072126`*^9, 3.825053650786687*^9}, {
  3.825164412626034*^9, 3.8251644201778584`*^9}},
 CellID->134023288,ExpressionUUID->"6ba9f01e-ff46-4d18-b4dc-244c172316e8"],

Cell["\<\
Only one input parameter can be \"Listed\" at a time as different length \
lists will result in an error.  Calling Listable API functions with a mixture \
composition will result in an error, since the routine will attempt to thread \
through each of the component mole fractions instead of passing it as one, \
single composition array.\
\>", "Text",
 CellChangeTimes->{{3.8250536724757257`*^9, 3.8250536766754656`*^9}, {
  3.8251644328102674`*^9, 3.825164519811352*^9}, {3.825588183121863*^9, 
  3.825588336425928*^9}},
 CellID->538185189,ExpressionUUID->"3aa059bb-a360-4bfc-a3b9-364cfe15a362"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Protected Attribute", "Subsection",
 CellChangeTimes->{{3.825053703251442*^9, 3.8250537171462555`*^9}},
 CellID->332076108,ExpressionUUID->"04618474-08f1-4ec2-9c2e-1dc8752fc458"],

Cell[TextData[{
 "The ",
 StyleBox["Protected",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " attribute protects each of the RefpropLink functions from being \
overwritten by another user function, thereby making the original RefpropLink \
wrapper function inaccessible."
}], "Text",
 CellChangeTimes->{{3.825052546620035*^9, 3.8250526387636337`*^9}},
 CellID->769906272,ExpressionUUID->"beaaf803-088b-4198-bf99-0fdd6281edc8"],

Cell[CellGroupData[{

Cell[TextData[{
 "Attempt to re-define the ",
 Cell[BoxData[
  ButtonBox["name",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Name"]], "InlineFormula",
  ExpressionUUID->"4f443db6-a107-4197-bdfe-03430fede98e"],
 "[",
 Cell[BoxData[
  StyleBox["icomp", "TI"]], "InlineFormula",ExpressionUUID->
  "7e040c08-3160-4ed0-bd53-465c1262d8fd"],
 "] function."
}], "MathCaption",
 CellChangeTimes->{{3.8250517522200727`*^9, 3.8250517667233257`*^9}, {
  3.8250527971541586`*^9, 3.8250528148827267`*^9}, {3.825115164088096*^9, 
  3.8251151714414196`*^9}, {3.825115201984771*^9, 3.8251152239530315`*^9}},
 CellID->622671432,ExpressionUUID->"b71705f3-f711-455a-8dd6-5588cf1f3a74"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"name", "[", "x_", "]"}], ":=", 
  RowBox[{"cos", "[", "x", "]"}]}]], "Input",
 CellChangeTimes->{{3.8250517852308083`*^9, 3.8250517932992353`*^9}, {
  3.8250528252520103`*^9, 3.8250528531553946`*^9}},
 CellLabel->"In[27]:=",
 CellID->186284404,ExpressionUUID->"4bb0912d-3089-4db6-a7d0-351f33ed156c"],

Cell[BoxData[
 TemplateBox[{
  "SetDelayed", "write", 
   "\"Tag \\!\\(\\*RowBox[{\\\"name\\\"}]\\) in \
\\!\\(\\*RowBox[{\\\"name\\\", \\\"[\\\", \\\"x_\\\", \\\"]\\\"}]\\) is \
Protected.\"", 2, 27, 1, 33582246397229225880, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8250528586337457`*^9, 3.8251645634561653`*^9},
 CellLabel->"During evaluation of In[27]:=",
 CellID->156705881,ExpressionUUID->"d741201c-c67f-4ad8-8ec3-86788bfba89c"],

Cell[BoxData["$Failed"], "Output",
 CellChangeTimes->{3.825051794787286*^9, 3.825052858651727*^9, 
  3.8251645634740896`*^9},
 CellLabel->"Out[27]=",
 CellID->789996233,ExpressionUUID->"4109419d-5325-40de-b07a-8434de810474"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Locked Attribute", "Subsection",
 CellChangeTimes->{{3.8250538119717107`*^9, 3.8250538152589216`*^9}},
 CellID->303234996,ExpressionUUID->"184f1b5d-f321-42f9-8de5-57375a9c631b"],

Cell[TextData[{
 "The ",
 StyleBox["Locked",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " attribute is ",
 StyleBox["not",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True}],
 " applied to the RefpropLink wrapper functions.  It is conceivable that for \
some programming applications, the user may want to modify the function \
attributes of one or more of the supplied functions."
}], "Text",
 CellChangeTimes->{{3.8250532016116905`*^9, 3.8250533181461315`*^9}, {
  3.825053358722641*^9, 3.825053361410421*^9}},
 CellID->389059614,ExpressionUUID->"0a6f6f16-c071-4300-8c05-abf67a2dde81"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Using REFPROP Functions within Mathematica Solvers", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.824999092051667*^9, 3.824999118395258*^9}, {
  3.825053771882901*^9, 3.8250537733140736`*^9}, {3.825053875690372*^9, 
  3.8250539124989214`*^9}, {3.825165287114167*^9, 3.825165287185977*^9}},
 CellID->50703201,ExpressionUUID->"f251c236-d3b7-4797-8450-9eb7f1df8488"],

Cell["\<\
Mathematica provides a number of numerical solvers including Solve, NSolve, \
FindRoot, etc.  Using RefpropLink functions within these solvers can be \
problematic because of RefpropLink's units handling features as well as \
preventing the solvers from trying to find a symbolic solution, which they \
can't when solving for expressions that use external functions.  Let's create \
a simple example of creating a reverse function for calculating the \
temperature at which the fluid viscosity is a specific value.\
\>", "Text",
 CellChangeTimes->{{3.825173099380906*^9, 3.8251731011930704`*^9}, {
  3.825311417114124*^9, 3.825311457641761*^9}},
 CellID->13351350,ExpressionUUID->"284f6157-4e21-4aa0-9529-15f7b32a5773"],

Cell[CellGroupData[{

Cell["\<\
First, create a viscosity function of temperature that calls RefProp for the \
current fluid at 1 atmosphere.\
\>", "MathCaption",
 CellChangeTimes->{{3.8251731091637745`*^9, 3.825173134298773*^9}, {
  3.8251731681534643`*^9, 3.8251731895861855`*^9}, {3.825173284105888*^9, 
  3.825173290513756*^9}, {3.825173329969263*^9, 3.8251733322900543`*^9}},
 CellID->2266733,ExpressionUUID->"3c6769e9-2d67-441e-930b-c2e2c2b45388"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"P1", "=", 
   RowBox[{"2000", "psi"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T1", "=", 
   RowBox[{"160", "\[Degree]F"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Mu]", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{"RefProp", "[", 
     RowBox[{"\"\<TP\>\"", ",", "\"\<VIS\>\"", ",", "t", ",", "P1"}], "]"}], 
    "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8251731390261087`*^9, 3.8251732350268173`*^9}, {
   3.8251734985794735`*^9, 3.825173502842104*^9}, {3.825173557371277*^9, 
   3.825173558738648*^9}, {3.825173599859268*^9, 3.8251736808355565`*^9}, 
   3.825173914394569*^9, {3.8253114810521946`*^9, 3.8253114883616233`*^9}, {
   3.8253115548668275`*^9, 3.825311558593835*^9}},
 CellLabel->"In[194]:=",
 CellID->584385686,ExpressionUUID->"389da571-b5d3-4658-a2ab-02519eb1ec0e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Mu]", "[", "T1", "]"}]], "Input",
 CellChangeTimes->{{3.8251732436098957`*^9, 3.825173259794622*^9}, {
  3.8251736940263176`*^9, 3.8251736943384523`*^9}, {3.825173728571142*^9, 
  3.825173734026555*^9}, {3.825173851002843*^9, 3.8251738515384073`*^9}, {
  3.8253115755225706`*^9, 3.8253115790820527`*^9}},
 CellLabel->"In[198]:=",
 CellID->354505472,ExpressionUUID->"592338a5-a032-4ad3-a9e8-b6b77dda6dab"],

Cell[BoxData[
 TemplateBox[{"32.11574005829628`", 
   RowBox[{"\"s\"", "\[ThinSpace]", "\"\[Micro]Pa\""}], "second micropascals", 
   RowBox[{"\"Micropascals\"", " ", "\"Seconds\""}]},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.8251732639684343`*^9, 3.8251735144231105`*^9, 3.8251735636734247`*^9, 
   3.8251736954744153`*^9, 3.825173736202736*^9, 3.825173852740205*^9, 
   3.8251739232289934`*^9, {3.825311506852181*^9, 3.825311587018866*^9}},
 CellLabel->"Out[198]=",
 CellID->239489759,ExpressionUUID->"e0456719-27e2-4a63-93db-791987bdfc5d"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "The reverse question is, \"At what temperature, does the viscosity equal \
exactly 30.0 \[Mu]Pa-s ?\"  The best solver for this situation is ",
 Cell[BoxData[
  ButtonBox["FindRoot",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "69adfa8b-baa0-486a-b410-a3135a146b9f"],
 ", which will use modified Newton algorithms to solve this function in \
reverse."
}], "Text",
 CellChangeTimes->{{3.825311743963298*^9, 3.8253117894576845`*^9}, {
   3.825312508568926*^9, 3.8253125113853955`*^9}, 3.8253125508109865`*^9},
 CellID->62905183,ExpressionUUID->"6a1bae5f-4ca4-4f3c-b3e7-946e75518d8a"],

Cell[CellGroupData[{

Cell["Use FindRoot to solve the reverse function.", "MathCaption",
 CellChangeTimes->{{3.825311634282487*^9, 3.825311685746748*^9}, {
  3.825311725881682*^9, 3.825311726913886*^9}, {3.8253117966893516`*^9, 
  3.825311813409643*^9}},
 CellID->38919302,ExpressionUUID->"6ba7c955-aa47-40d2-9b0f-f3eade5ea2e4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Mu]", "[", "t", "]"}], "\[Equal]", 
    RowBox[{"30.0", "\[Mu]Pa", "*", "s"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"160", "\[Degree]F"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8251734024065485`*^9, 3.825173482362789*^9}, {
  3.825173744596321*^9, 3.825173752793401*^9}, {3.8251738044363174`*^9, 
  3.825173808713916*^9}, {3.8251738798200417`*^9, 3.82517388492337*^9}, {
  3.8251739918515844`*^9, 3.8251740144494133`*^9}, {3.8253118355713577`*^9, 
  3.8253118638098807`*^9}},
 CellLabel->"In[199]:=",
 CellID->835394182,ExpressionUUID->"ec6d6047-5d71-407f-a7ea-448129c7cf93"],

Cell[BoxData[
 TemplateBox[{
  "mixedUnits", "mixedInputs", 
   "\"Error: Mixed quantity/non-quantity input state points.\"", 2, 199, 201, 
   33582246397229225880, "Local", "RefpropLink`RefpropUnits`mixedUnits"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.8253118733443594`*^9},
 CellLabel->"During evaluation of In[199]:=",
 CellID->135675079,ExpressionUUID->"92a08b32-1b00-4d0e-a7c4-7bb93e2e34d4"],

Cell[BoxData[
 TemplateBox[{
  "RefProp", "mixed", 
   "\"Inputs cannot be mixed Quantity/non-Quantity values.\"", 2, 199, 202, 
   33582246397229225880, "Local", "RefpropLink`RefProp"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.8253118733732815`*^9},
 CellLabel->"During evaluation of In[199]:=",
 CellID->447418714,ExpressionUUID->"52217cb0-443f-4843-aca9-3f329caa8ee5"],

Cell[BoxData[
 TemplateBox[{
  "Part", "partd", 
   "\"Part specification \\!\\(\\*RowBox[{\\\"\\\\\\\"Input \
Error\\\\\\\"\\\", \\\"\[LeftDoubleBracket]\\\", RowBox[{\\\"1\\\", \
\\\",\\\", \\\"2\\\"}], \\\"\[RightDoubleBracket]\\\"}]\\) is longer than \
depth of object.\"", 2, 199, 203, 33582246397229225880, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.825311873399213*^9},
 CellLabel->"During evaluation of In[199]:=",
 CellID->46713604,ExpressionUUID->"979a2517-8d8f-44f3-9b68-652548106791"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot", "nlnq", 
   "\"-- Message text not found -- (\\!\\(\\*RowBox[{\\\"{\\\", \
TemplateBox[List[\\\"160.`\\\", \\\"\\\\\\\"\\\\[Degree]F\\\\\\\"\\\", \
\\\"degrees Fahrenheit\\\", \\\"\\\\\\\"DegreesFahrenheit\\\\\\\"\\\"], \
\\\"Quantity\\\", Rule[SyntaxForm, Mod]], \\\"}\\\"}]\\)) \
(\\!\\(\\*RowBox[{\\\"{\\\", \\\"t\\\", \\\"}\\\"}]\\)) \
(\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\\\\\\\"Input \
Error\\\\\\\"\\\", \\\"\[LeftDoubleBracket]\\\", RowBox[{\\\"1\\\", \
\\\",\\\", \\\"2\\\"}], \\\"\[RightDoubleBracket]\\\"}], \\\"+\\\", \
TemplateBox[List[RowBox[List[\\\"-\\\", \\\"30.`\\\"]], \
RowBox[List[\\\"\\\\\\\"s\\\\\\\"\\\", \\\"\\\\[ThinSpace]\\\", \
\\\"\\\\\\\"\\\\[Micro]Pa\\\\\\\"\\\"]], \\\"second micropascals\\\", \
RowBox[List[\\\"\\\\\\\"Micropascals\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"Seconds\\\\\\\"\\\"]]], \\\"Quantity\\\", Rule[SyntaxForm, \
Mod]]}], \\\"}\\\"}]\\)) (\\!\\(\\*RowBox[{\\\"{\\\", \\\"1\\\", \
\\\"}\\\"}]\\))\"", 2, 199, 204, 33582246397229225880, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8253118734670305`*^9},
 CellLabel->"During evaluation of In[199]:=",
 CellID->392110355,ExpressionUUID->"f134dc24-97db-41b7-9df8-5e3643594daf"],

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Mu]", "[", "t", "]"}], "\[Equal]", 
    RowBox[{"30.`", " ", "\[Mu]Pa", " ", "s"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"160", " ", "\[Degree]F"}]}], "}"}]}], "]"}]], "Output",
 CellChangeTimes->{3.8251734868617916`*^9, 3.825173519084677*^9, 
  3.8251735675810056`*^9, 3.8251737581012125`*^9, 3.825173809839877*^9, 
  3.8251738866477585`*^9, 3.825174017318741*^9, 3.8253118734889727`*^9},
 CellLabel->"Out[199]=",
 CellID->413084486,ExpressionUUID->"07b76e75-cf73-4476-8c01-dda441dbd537"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Several errors occur here, primarily because the solve functions first try \
to solve the equation symbolically.  Given that \[Mu][t] calls RefProp[], \
which is a numerical, external function, a symbolic evaluation won't work.  \
Additionally, when the symbolic attempt is made, the dependent variable, t, \
is passed as a symbol.  This causes units issues with RefProp[], which is \
expecting either a ",
 Cell[BoxData[
  ButtonBox["Real",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "0e416597-2e0c-4022-98dd-efe032e9dbbd"],
 " or a ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "7cfd26d6-2db3-4bc5-bfb2-9dd396992774"],
 " and mixed units errors are thrown because RefProp[] can't determine the \
units on the symbol."
}], "Text",
 CellChangeTimes->{{3.8253118921949844`*^9, 3.8253121091459017`*^9}, {
   3.825312568113715*^9, 3.825312587039083*^9}, 3.8302434233680153`*^9},
 CellID->193933652,ExpressionUUID->"147d8b78-efc4-40f3-962e-8ae5aa2d3882"],

Cell[TextData[{
 "There are a number of ",
 Cell[BoxData[
  ButtonBox["Options",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "e83f30eb-85df-457e-a309-bd12f114ee8c"],
 " on ",
 Cell[BoxData[
  ButtonBox["FindRoot",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "14962c1a-c3be-44b9-8f0c-a0daebf8ea5e"],
 " function.  These options modify the solver method used and parameters of \
the solution algorithm.  Specifically, however, we are interested in the \
fourth, \"undocumented\" option present in this list, ",
 StyleBox["Evaluated",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ".  When this value is set to ",
 Cell[BoxData[
  ButtonBox["True",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "6404b4ed-8b83-4b76-988f-75a236250505"],
 " (the default), Mathematica tries to evaluate the function ",
 StyleBox["symbolically",
  FontSlant->"Italic"],
 ".  If it can't find a symbolic solution, it then attempts a numerical one; \
however, the damage is already done and Find Root fails. "
}], "Text",
 CellChangeTimes->{{3.825312122954979*^9, 3.8253121572752066`*^9}, {
   3.8253121878344755`*^9, 3.8253122009863105`*^9}, {3.8253122575132008`*^9, 
   3.8253124484087577`*^9}, {3.8253125264351544`*^9, 3.825312533910139*^9}, 
   3.82531270137426*^9},
 CellID->1967005,ExpressionUUID->"e9db5818-1d55-4647-86e4-3cf1ffbfe244"],

Cell[CellGroupData[{

Cell["FindRoot Options.", "MathCaption",
 CellChangeTimes->{{3.8253122289545574`*^9, 3.8253122380263014`*^9}},
 CellID->69300107,ExpressionUUID->"5e14206b-a51e-4131-9be7-d92186c6bae1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "FindRoot", "]"}]], "Input",
 CellChangeTimes->{{3.8253122416296387`*^9, 3.825312246049821*^9}},
 CellLabel->"In[200]:=",
 CellID->4704819,ExpressionUUID->"ca1610b1-afae-4b46-968f-a51ee1eadd31"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"AccuracyGoal", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Compiled", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"DampingFactor", "\[Rule]", "1"}], ",", 
   RowBox[{"Evaluated", "\[Rule]", "True"}], ",", 
   RowBox[{"EvaluationMonitor", "\[Rule]", "None"}], ",", 
   RowBox[{"Jacobian", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"MaxIterations", "\[Rule]", "100"}], ",", 
   RowBox[{"Method", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PrecisionGoal", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"StepMonitor", "\[Rule]", "None"}], ",", 
   RowBox[{"WorkingPrecision", "\[Rule]", "MachinePrecision"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8253122475966835`*^9},
 CellLabel->"Out[200]=",
 CellID->194717630,ExpressionUUID->"5f0ffa61-7a76-4028-ac38-f3386f81442e"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "To eliminate the errors, and get ",
 Cell[BoxData[
  ButtonBox["FindRoot",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "3c812ed0-beaf-40bd-8606-cadeab136cff"],
 " to only solve the constraint function symbolically, we can set this ",
 Cell[BoxData[
  ButtonBox["Evaluated",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "77da3faa-724c-49af-b3f6-bc96ae9dc4e8"],
 " option to ",
 Cell[BoxData[
  ButtonBox["False",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "04575e27-2369-41d3-97c0-cd5272d88399"],
 "."
}], "Text",
 CellChangeTimes->{{3.82531247187504*^9, 3.8253124826262627`*^9}, {
  3.825312625167136*^9, 3.8253126908225064`*^9}},
 CellID->128796430,ExpressionUUID->"2666c164-47cc-463d-85f5-ed3a5b6cdc0f"],

Cell[CellGroupData[{

Cell["FindRoot numerically, only:", "MathCaption",
 CellChangeTimes->{{3.825312719419013*^9, 3.8253127301064677`*^9}},
 CellID->124932263,ExpressionUUID->"ac9bb9e3-857e-448c-bb28-d2f9c996766b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Mu]", "[", "t", "]"}], "\[Equal]", 
    RowBox[{"30.0", "\[Mu]Pa", "*", "s"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"160", "\[Degree]F"}]}], "}"}], ",", 
   RowBox[{"Evaluated", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8251734024065485`*^9, 3.825173482362789*^9}, {
  3.825173744596321*^9, 3.825173752793401*^9}, {3.8251738044363174`*^9, 
  3.825173808713916*^9}, {3.8251738798200417`*^9, 3.82517388492337*^9}, {
  3.8251739918515844`*^9, 3.8251740144494133`*^9}, {3.8253118355713577`*^9, 
  3.8253118638098807`*^9}, {3.8253127496821284`*^9, 3.825312760954954*^9}},
 CellLabel->"In[201]:=",
 CellID->137869757,ExpressionUUID->"8f401244-e2b0-42b2-a4d1-7a042b109507"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"t", "\[Rule]", 
   TemplateBox[{
    "168.72830958629913`", "\"\[Degree]F\"", "degrees Fahrenheit", 
     "\"DegreesFahrenheit\""},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.825312765546706*^9},
 CellLabel->"Out[201]=",
 CellID->115796959,ExpressionUUID->"219be049-8810-4df0-9a1a-7d53718f58c1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ansT", "=", 
  RowBox[{"%", "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.825312780093796*^9, 3.825312796283492*^9}},
 CellLabel->"In[202]:=",
 CellID->48631934,ExpressionUUID->"113dac14-8630-4349-995e-29056f8bcb33"],

Cell[BoxData[
 TemplateBox[{
  "168.72830958629913`", "\"\[Degree]F\"", "degrees Fahrenheit", 
   "\"DegreesFahrenheit\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.825312799401157*^9},
 CellLabel->"Out[202]=",
 CellID->112139168,ExpressionUUID->"23155354-ad51-433c-ac83-138f60790d7c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Verify the result.", "MathCaption",
 CellChangeTimes->{{3.82531281205136*^9, 3.8253128213385005`*^9}},
 CellID->91063500,ExpressionUUID->"79a9d353-bd01-4b7a-aaca-94e41f4701a1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Mu]", "[", "ansT", "]"}]], "Input",
 CellChangeTimes->{{3.8253128244462214`*^9, 3.825312831345772*^9}},
 CellLabel->"In[203]:=",
 CellID->179969929,ExpressionUUID->"e0a51cc6-7965-4174-be34-79af0ae312a1"],

Cell[BoxData[
 TemplateBox[{"30.00000000000088`", 
   RowBox[{"\"s\"", "\[ThinSpace]", "\"\[Micro]Pa\""}], "second micropascals", 
   RowBox[{"\"Micropascals\"", " ", "\"Seconds\""}]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8253128346309867`*^9},
 CellLabel->"Out[203]=",
 CellID->54875756,ExpressionUUID->"769f199a-fc59-46a3-98e7-17eefa81617c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Alternative Method (Dimensionless Evaluation)", "Subsection",
 CellChangeTimes->{{3.825313243931525*^9, 3.8253132477622824`*^9}, {
  3.8253151952331285`*^9, 3.8253152049222364`*^9}},
 CellID->14448372,ExpressionUUID->"1d6c8654-8347-4fa6-9efb-b6efac3c8ebd"],

Cell["\<\
The alternative to using the undocumented Option used above, is to\
\>", "Text",
 CellChangeTimes->{{3.825313255877587*^9, 3.8253133011615314`*^9}},
 CellID->749768487,ExpressionUUID->"9720a6e0-a194-4bad-9597-bfd9ac4e1303"],

Cell["avoid the units issues by going dimensionless, and", "BulletedText",
 CellChangeTimes->{{3.825313362537426*^9, 3.825313398313739*^9}},
 CellID->389515429,ExpressionUUID->"7ff6b78d-90e9-475d-8c1f-8772d5861db0"],

Cell["\<\
provide a \"helper\" function that only takes numeric values (not symbolic or \
Quantity values).\
\>", "BulletedText",
 CellChangeTimes->{{3.825313362537426*^9, 3.825313445041797*^9}},
 CellID->18276176,ExpressionUUID->"6abc91d1-b9a1-42c4-8912-79dd3583b876"],

Cell["\<\
This will force the solver to skip the symbolic evaluation step.\
\>", "Text",
 CellChangeTimes->{{3.8253134568033776`*^9, 3.8253134745868015`*^9}},
 CellID->103234196,ExpressionUUID->"84e348e6-a2f7-450b-bc0a-cd6584b8df4d"],

Cell[TextData[{
 "Since this method will only take numeric values, it can't use ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "7c85b5b0-0977-46be-986f-94efb8000766"],
 " values either.  RefProp will have to be used in dimensionless mode, \
providing inputs as non-numeric values.  This requires that we redefine the \
above viscosity function to only provide dimensionless inputs.  RefpropLink \
provides a handy utility function, ",
 StyleBox["rpUnits",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ", that will take any ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "aad9081f-c396-4289-9003-d5b3fbb0ebeb"],
 " value, identify it as a known RefProp input, convert it to REFPROP default \
units, and return only the magnitude (real value) of the converted Quantity.  \
If the input is already a non-Quantity, it is assumed to be in the correct \
units and simply returned. "
}], "Text",
 CellChangeTimes->{{3.825313816386894*^9, 3.8253138823136673`*^9}, {
   3.8253139834652333`*^9, 3.825314166080983*^9}, {3.8253142272573814`*^9, 
   3.825314228033306*^9}, 3.8253150585216675`*^9, 3.8253152988470864`*^9},
 CellID->688936598,ExpressionUUID->"752e8d4d-d16c-493e-8818-7e7de616c719"],

Cell[CellGroupData[{

Cell["Set up a dimensionless viscosity function.", "MathCaption",
 CellChangeTimes->{{3.8253139021067276`*^9, 3.82531392418666*^9}},
 CellID->177417840,ExpressionUUID->"1b676719-553d-43b9-80c0-07fe7e37618b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Mu]2", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{"RefProp", "[", 
     RowBox[{"\"\<TP\>\"", ",", "\"\<VIS\>\"", ",", 
      RowBox[{"rpUnits", "[", "t", "]"}], ",", 
      RowBox[{"rpUnits", "[", "P1", "]"}]}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8253139483301764`*^9, 3.8253139653935814`*^9}, {
  3.8253140002024803`*^9, 3.825314005689809*^9}, {3.82531480465745*^9, 
  3.8253148047402287`*^9}},
 CellLabel->"In[212]:=",
 CellID->283577110,ExpressionUUID->"1d63a45d-19c9-43a8-a010-384bd9b3276c"]
}, Open  ]],

Cell["\<\
Now set up a \"helper\" function that calls the forcing function using the \
new viscosity definition.\
\>", "Text",
 CellChangeTimes->{{3.8253141820502563`*^9, 3.8253142088266907`*^9}},
 CellID->265964675,ExpressionUUID->"949bc003-7b20-4392-b2c3-64c1634b9d93"],

Cell[CellGroupData[{

Cell["\<\
Set up a numeric forcing function, g[x] to find the root of the constraint \
function.\
\>", "MathCaption",
 CellChangeTimes->{{3.8253135459071026`*^9, 3.82531359851447*^9}, {
  3.825315087017504*^9, 3.8253150884097795`*^9}},
 CellID->218422533,ExpressionUUID->"16cba192-9db2-4813-86e6-8bfe22833b9a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", 
    RowBox[{"x_", "?", "NumericQ"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"\[Mu]2", "[", "x", "]"}], "-", "30.0"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.824985980798149*^9, 3.824986039282786*^9}, {
   3.8252332171467276`*^9, 3.8252332253617673`*^9}, {3.8252334903472433`*^9, 
   3.825233493162716*^9}, {3.8252338064191303`*^9, 3.825233841641953*^9}, 
   3.8253136211459293`*^9, 3.825314173593867*^9, {3.825314807690341*^9, 
   3.82531480781002*^9}},
 CellLabel->"In[213]:=",
 CellID->5493170,ExpressionUUID->"7f5f40b4-5ffb-41ab-a3d0-991ed1d2debc"]
}, Open  ]],

Cell["\<\
The special pattern on the x parameter, force this function to only accept \
numeric values.  \
\>", "Text",
 CellChangeTimes->{{3.8253134925946784`*^9, 3.8253135363706017`*^9}, {
  3.825313633737268*^9, 3.825313807654251*^9}},
 CellID->382075119,ExpressionUUID->"0763588e-ba49-451d-a667-1c79eef2ded4"],

Cell["\<\
Now solve the helper function using numeric temperature values, converted to \
REFPROP default units of Kelvin.  The resulting temperature is multiplied by \
the default temperature unit to again create a Quantity result, and then \
converted back to \[Degree]F. \
\>", "Text",
 CellChangeTimes->{3.8253151191386223`*^9},
 CellID->183399998,ExpressionUUID->"488e2d1b-a97a-41e9-8b0f-66d6c0144046"],

Cell[CellGroupData[{

Cell["Use FindRoot without the undocumented Evaluated option. ", "MathCaption",
 CellChangeTimes->{{3.825314251074727*^9, 3.825314299658795*^9}, {
  3.8253144162969275`*^9, 3.825314469985401*^9}, {3.825314927537896*^9, 
  3.8253149492967143`*^9}, {3.825315126753231*^9, 3.8253151566183767`*^9}},
 CellID->38518639,ExpressionUUID->"01c4cb99-4885-4aea-b617-f37329ebe012"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ansT2", "=", 
  RowBox[{"UnitConvert", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"FindRoot", "[", 
       RowBox[{
        RowBox[{"g", "[", "t", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", 
          RowBox[{"rpUnits", "[", 
           RowBox[{"160", "\[Degree]F"}], "]"}]}], "}"}]}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], "K"}], ",", "\[Degree]F"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8247607839117093`*^9, 3.824760848954768*^9}, {
   3.82476106292568*^9, 3.824761067467518*^9}, 3.8249860581722813`*^9, {
   3.824986166395884*^9, 3.824986190122473*^9}, {3.825234490314522*^9, 
   3.825234497226037*^9}, {3.825234618379093*^9, 3.8252346369304914`*^9}, {
   3.8252347694191175`*^9, 3.825234772953661*^9}, {3.8253143333696585`*^9, 
   3.8253144129778023`*^9}, {3.8253147246434193`*^9, 3.825314725265727*^9}, {
   3.8253148496920357`*^9, 3.8253148889700155`*^9}},
 CellLabel->"In[219]:=",
 CellID->250591936,ExpressionUUID->"c28e53fc-eea8-4aed-8b63-9d57c35d353f"],

Cell[BoxData[
 TemplateBox[{
  "168.7283095863026`", "\"\[Degree]F\"", "degrees Fahrenheit", 
   "\"DegreesFahrenheit\""},
  "Quantity"]], "Output",
 CellChangeTimes->{{3.8253145740340915`*^9, 3.8253145856241007`*^9}, 
   3.825314726391717*^9, {3.825314836713761*^9, 3.8253148628050084`*^9}, 
   3.825314895392875*^9},
 CellLabel->"Out[219]=",
 CellID->118659219,ExpressionUUID->"1edc213e-c57e-47b4-81bf-0f88ff22e634"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Again, verify the result.", "MathCaption",
 CellChangeTimes->{{3.8253149997468204`*^9, 3.8253150039386115`*^9}},
 CellID->71362658,ExpressionUUID->"e817ed9d-d09a-497e-ac6a-934efa66f9a9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Mu]2", "[", "ansT2", "]"}]], "Input",
 CellChangeTimes->{{3.8253149794630885`*^9, 3.8253149866738033`*^9}},
 CellLabel->"In[220]:=",
 CellID->178512955,ExpressionUUID->"624263bd-b1bf-456d-b359-b43bd17bf9e1"],

Cell[BoxData["30.00000000000186`"], "Output",
 CellChangeTimes->{3.825314989086325*^9},
 CellLabel->"Out[220]=",
 CellID->86174167,ExpressionUUID->"f0f0ec3c-2ed9-4c21-8b6b-501aab718797"]
}, Open  ]]
}, Open  ]],

Cell["\<\
FindRoot can also be used to solve systems of equations using the principles \
demonstrated above.  The RefProp[] function was used here, but any of the \
numeric Legacy API functions could be used as well for improved speed.\
\>", "Text",
 CellChangeTimes->{{3.825315247475445*^9, 3.825315285794016*^9}, {
  3.825315337809907*^9, 3.8253153778408732`*^9}},
 CellID->503268540,ExpressionUUID->"54778af6-1bd1-4953-9f76-5e06ec8d94ab"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Function Help", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.824999092051667*^9, 3.824999118395258*^9}, {
   3.825053771882901*^9, 3.8250537733140736`*^9}, {3.825053875690372*^9, 
   3.8250539124989214`*^9}, {3.825165287114167*^9, 3.825165287185977*^9}, {
   3.8311815357571497`*^9, 3.831181545637102*^9}, 3.831186392863402*^9},
 CellID->540884156,ExpressionUUID->"44ff8989-bc3e-4f66-9707-b0e1ad29a440"],

Cell["\<\
Built-in Mathematica functions from Wolfram Research are tightly integrated \
with the Wolfram Language Documentation Center.  As such, there is a \
\"hover\" feature that brings up a pop-up menu when hovering over a known \
Mathematica function typed in a notebook.  This pop-up menu contains a \
double-chevron on the left and an information icon on the right.\
\>", "Text",
 CellChangeTimes->{{3.831181568344979*^9, 3.831181775077444*^9}, {
  3.8311821329025707`*^9, 3.831182146158683*^9}, {3.8311824963081174`*^9, 
  3.8311824994761972`*^9}},
 CellID->4166504,ExpressionUUID->"e224773c-9046-4b29-9d70-253fe86d5913"],

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztml9MU3cUx8n2ssSXZVkir1v24IPxBR8cL5tzybLM7cFlWQzsTysUcfxZ
cMlmjMDkz2COApoZikKxUmj5p4iAESUCFQQp449gSykUWAGBlhb6j5bYndtb
2tty7+2tMm5ve785vfn13N+59/w+9/T0V8J73PQTvDeioqLOvgWHE5xfj2Zk
cM59/Ta8+SbtbHJSWmLC52m/JCYlZhzhvgnOw/A6Dy9k7GTFihUrVqxYsQpX
qUpio6JiS1R058FUufjx2tzv2ngBYeIAx41yzXPLc/09E4WF0KSggeNoZxRK
e+85k6QUKsIHjnhjS0p4vhXqLVqfAKzQRfpe1CvMbDcNvBv5foaw6Lzx2x6c
ePyUQkbEwLfX71csODB3lBNxj3F7XVCQi+DfCBOP6/TmgMbvmMDICt/27hLw
oG6EDD0PAT3tX7gY4ASfpdAEjlmSc1eB+2MI7sm6s8Ikh4+QgcBxlxwc8J0u
vC9N/5ZCfiPkBK8EOfh8XfizJQJO5A8J4Wzg8Dn4f6q9C/Kc8T4Z7OTtiRgf
6Y28WflUKTZRdxAxWJyUIk4yxUJ4GN0gqQpS3XRsMd1Y4CxwIrHA91gIcPtW
SNnaugWxDQv1EBb4q1n38CRfcv/n4pr04tp0vpgv7egZngw/4Db7Fu2mX7f8
3dCZzJckF0l4hTe5+VU/5FSeLpKc4UvBr9+wkoezwLH2bF5HPsFis1+pe5BS
2pCQX3Uqr5KTcz2NL84TtiT+ITyVJ0y93Fgq7TDb7BECvFeh7ZrQGs02P7/B
ZO1+vtBL4Xl1js+TT+gZVkIlo7S5uRXx2YLeUeSH0fmyxu+yyxPyhWf4kq4h
ZRgBd5CYalF3e1DTMDCjWNB7nDBuHJi59VSjWtSTh4O5gBOehfL+s7odOgnQ
Ri0+SyC829PeN5pUeIOTUwEeOFtwsxW+RIkuwizgVruD3GClcvUL8WPVnadT
Cq0OjtUy1aB62WzbDBhrdQEnOatfN0MD4RWKUNpxWQLgL1doLlY2x2UKUCev
QJRaJIaZRBdhGPBNB4n1jM93jM4ZNiwrRlObfLpaNtk+NL1iMBlNVvB3P5sj
DwdDgBOffaFf/+mSKLEAAc6BfpJVPqb+FxLLLG+CfuIBnnKpenXNRHSRcAI+
vbTWLJ+R9KnH5/Tw1mJDnDCW9k03D2rUS2uvCVxv9FZ4fHb5BUHTy5fOvrGp
kxfKuLmV3grni2FmJAB3QbYPa1aA+a1+1fic7vaAqrZPPaJZBX/A2IDAoU0U
itqgSwPek5ll956MQVaitt7T0MBzK1DgSA8XtZqJb8cs4BZASsGWjaaOkdkb
Xc/hCGOKURYX8AAT5ArYh3DzhD9evD4yNQ9ZKWcXf7ta//3v14C2a5cifTSk
wI3dv/+DLlm/TKGlGyRVUQeOGuwGg5pPBTi05tK6DtiHw54kU9BU1So7d7XB
Qxv24cXS+xsWGxHwj48eL6+7RzdIqgoW+CvYY2XgW+iMpiv1D5HdeKE4Lvsa
J1cIXT3Z9Uvzcv1DndFMFAjAYRUxH372pH+QbpaUhAC3OULEHv2j5Nd2wA4w
tbgGjn/V3O+UK8lDUOCgT459yQjmANxsc4SUrRrMKwYzHKlM9gB3MoR5CAIP
yrDAnUxg7gJuZ675AXeGPPPwA+4MbeZhCdy26QhZ5rT/e8Nr2jvvvo+7LoNh
I2SZM1rR0TgVjmppaZllvusiAQ6anZ0H5nuWTCQIC9xksqIDgIw1mlILT3mA
A+19+6Jb7j6A8bFPv7rTwpi/rjBLKHCUNrTrgwePOF2dBB2w2nUBcA9tePvF
8W+7u/vRAVvk/4egRXtog2Bw4MBhGExMKA4diqU1tUgR1DbQhkFMzEd05xIR
0moXocg53JShoVG6c2HFihUrVrus/wAHVXv1
    "], {{0, 39.}, {92.25, 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->96],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{124.25, Automatic},
  ImageSizeRaw->{92.25, 39.},
  PlotRange->{{0, 92.25}, {
    0, 39.}}]], \
"Input",ExpressionUUID->"6f41f8a0-bcfb-4916-b507-7798f2cc1cd1"]], "Text",
 CellChangeTimes->{{3.831181568344979*^9, 3.831181775077444*^9}, {
  3.8311821329025707`*^9, 3.8311821521868544`*^9}},
 CellID->270181972,ExpressionUUID->"fbf6a5ca-e4b0-429f-a07c-d6fa62736fb0"],

Cell["\<\
Clicking on the double-chevron on the left of the pop-up will bring up the \
usage statement for the function.\
\>", "Text",
 CellChangeTimes->{{3.831181568344979*^9, 3.831181775077444*^9}, {
  3.831182135204569*^9, 3.831182140293541*^9}, {3.831182184404258*^9, 
  3.8311822167644863`*^9}},
 CellID->23578408,ExpressionUUID->"e2ce208a-16fc-4633-aa4e-a825e46065e9"],

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnc1qI0uWxzUzm1nOK8xbSHc3ywatupkHcFsq02Br4HaLYXZeqiylKWYp
7fsajMFpQW+NubdAD2DLhrqUC0zPE/S9t2wXeOLjxEdGROrDjlRm2v/gR5GK
PBFxIiLjnydScta///G/fv/unxuNxp//lf3z+63//o/vv9/6nz/8G/vwn70/
/2mn1+38rveX7k73++Yf/4Vl/i83/adGgx8/ISEhISEhISEhISEhISEhISEh
ISEhISEhISEhISEhlZI+ffiu0fjuw6ey/UBCQqpuEjrx7m/06W/vlopGQFiC
pYQdJV3/xtIKHUFCQiosrS0sgeSXkqqyeT1Z4BISEtLmUlhYeO53Hz68y0Yc
JgjJFLCTXMzZSk2yrGnVhxrKxkS2RJjyKidQPuwSEhLSBlO+sKh17tz8A6Lh
hQf5eyPKFYufVxJuyCofzDQ+yPKeASIWJKRS0wJhodxIwrJWQ/xQi4087QYi
lrDkxEYQFiSk0pJZuk9RhcVd7uspGHllOReWCggLElIlU3Bprycsflbo4a27
FVrcED/x7gP/J/M4x9WQPGHJy0dCQtpQCnwxHF7v7m7ELFx9xiiQbawMrbyF
DRmvMlGH7SgVyheQgEtISEiVTj/d/B8A4C1TkLDcP34DALxNICwAgOhAWAAA
0YGwAACiA2EBAEQHwgIAiA6EBQAQHQgLACA6EBYAQHRqKSzXh81Go5nclD56
z/X/Zs4o3Y36MBcjVrobYHWqICzzpNVodFP6OO0sFY2AsARL3Yxa+k+HdP0b
I68jPJ+nzjR+o9PD0bUcH9VfmfPsqiJ6tYpl0PNpV4xXK5o/oHgKFJaHbytC
wkIf1XpcuXhOKakqutrNk9cRll+QVzejzuF8Sc6zq4ro1TNKsdlsjeZFTxmI
RnWFZc5uXq1R0m3o+zs/a4KQzhkVTzvZv6luiQuSFzc2hrOuNqRVH2pIuKSv
ZFsiph2nuHCpmRyqfN6RsEumg46w3KSdluiR8GQuPlIRYzxPuiJO4w11zoQb
3GbKi7KDuXSM+yxa76bzqeWFqIT1tLXCGreqCrfLajvrNtU4d0xYKAecaQLP
arKRNFX5nfK68OB4bisJhKVmVFtY1IrgamBdVwHR8MIDp4hVkMyEwvBKwg1Z
FQYzjQ9S6zyDlSMWvpo607kcB7a+zqbpXOwIZCtK6JrCRjhDrjaTaZpM58qY
2dCYWKVkDlvUcii4/WozIgsG2uWVH86pCdYXWTMTEz0arOwNPyW0gqoKdcrv
gu+5AsJSMyouLHR1RRKWtRqS690+sKOdzA26pQOqhS6ZfEtYWJ0qimANSXvu
p2qaPNSRBrOnU9aS5znMDR3btJRjlJOqVZ+erbLHVAVD7XKp0Z3iBmRJCsO0
QgQqQl6+OV5lOhXoQsBzyyUIS50oTli+PnxbFXU3FB+n22I9fhXrfftMG/Dr
iuztU06pTJ2OzbcrJSwrNURecbOwGwQJi9cvzyWTr33gq4wqlzuyOVXIM+fM
krY2qiPq1AOdMjUIEbgiG3HK5PCOc5uz6dUq06EKhtqlJf/V+C83Qqz+m696
D9jqjs5urh4crzKdCnQh5Lk1yP7Ig+pSCWEJLu31hMVf3ebhrdMQLfblDYm1
kFCULnK4VngakicsCwTHE5b54Ug8gqDFyA1YdHG4bS9wFgYkXSorbvFfjTHP
YdsKypH16BwhLM3kMLVGTGhsUPdMwUC7YqtiG18lXXu98yKiTiVlllfZTgW6
EPLcGkwIS52ohLCo61wm6w7ur3extK1k5EXvU8zNzjZWa9nazixsyHiVWX30
QMauM09Agi59c4SFmuhM5QaBSok7vjowNldy63FmxRLCJhVRTbNzyA6uxIMa
O4fMHA+lb25gwMlUldcuIfrOnExULETjYwIY8sHrlN+FsOemIQhLnaiIsLwl
MsKiKHbhXLFwJeBGTsSyMmkiQ6xpmnSbLb9TEYGw1AwIy8bhzxaane62EwiF
gocXw38NwnYfzpKk+DAYZa1OxmfWUGHCMj/c7nSbgadboLpAWDbOzdXZNOVf
v5Kw6G3gC+OHYFvsRr8dv1qqPNU/YWl1C1z185tUjFgBwguKAsICAIgOhAUA
EB0ICwAgOhAWAEB0ICwAgOgUKSyPADyPp9vzDVN6l18ZEBZQQSAsdQfCAioI
hKXuFCcsvz08AvA8Ni8spXf5lfFahOXjwd7Rz5mDKLW90GbDffdybo92N++k
afTLD3ttlg6OlrrBLQ9+MjmRdSMdHM/On2aDXrs/s3PCwrLO7Nd2hIvmlQiL
HuooE71KJaVcUSt6Enc0Ch1GolBhOTneH9wtyTlfz+36j3DR1FRYfj4SSs3S
8KPW7fbe8IAOxGj/NLRs5CyQwe7Rxx/o4Iudn62NVaKOpWV2mnRD2pmsjZp6
5cRF1nMyZgbD4YHlJzPQ9Zjj3L7s7dpddnxzu/YYqMrvlO3bKsWdPtLV/vFA
Z+rr3ytLoyFa8YTlZLa/xU4mKYs0to5n4uOOFIRJomKPu3G/1273xoOEW7L8
trCZJDviYCZyePHz2T476M8oRyZRCYtkdgbrzOxrGOEaC8v9Y1GwYdw9+pkf
s7EdXtg5/sH948WwffCjnJ29H26zB7vi2pAf77/8sKssZdkfh3yC7IZ8H3hx
eYrZyHo0JofPL6vKN87kZPvC/bH8DPYl29OQb9LMr1xVpUv5nV0wMqZ4qI/B
uQj3QjeUcYYpBteB/ckdlw6hJ+lkpvcy7GB/IlRlqydsntI+qUTa740ns/Hk
ThkzmyQVYYlVSuYwpZIbIma/3szWf4SLppbCogZK3jYyS8/WBCtRZLJsOihC
yFw2Sv99B1zx8S4kf8n7xr6M8FOqU9J4QV+CrQTUVVXuV+UPqe6sPzKLPclr
XR54ZanO0NBxoaDghCtMb3wiBaEtlIFyRKRBOxpmT6csqeE5J8c7OraRemJy
WD0yZ5aePHNmazvCEJYAfAC9+74vLI4aPENYstdD+NIqQFikmaltQV+CrSy+
7H2RdMrqzgYv+wWeLL3ss2UXXPZqycsnrjKuYIIgMvlehrY2ZKNP3dIpIxpG
fJjNFj3CVXJEUpNyIXrmzNZ2hIumrsJibuU5wrIgyPSFJceSIk81L+7dZ52t
EHeV2sqRRFtY2NndIePCXIq5AfN6wuJXZV2EbmeD7brFQ31cfZzNaISEZTY4
1s9VaGvDootBInKUzeR43E/UPkjGLeYLILEzerq19ETnyJ3UeDAT6rTezNZ/
hCEsIdRjK/HYUw0+D/5+NgdWUCpnc1HEwlaxHaOaSi50dOksXstGP+ILTJzZ
spFKuMZhYRHt2nefvL5kPXF9ywuHnID83mrU7mxgZELFnT7mjXOorBqNvd3s
GuS7nnabbWr0PkhsjvrH6Yk6ONc2/HEK292kVgwjbGYiquntD9iBfFBj59gb
qIywrDSztR9hCEvh+Hd8UPbImO+Fd7acH5xE5I6FK/rr5jc2wkUDYXnFk1vf
kaG1bz+ejf3Llln2N3JvbYSLBsICKgh9ByQSbYXiCsvOVpKttvQuvzIgLACA
6EBYAADRgbAAAKJTI2Ep6KuB51H6xAFQZSAsEBYAogNhgbAAEB0IC4QFgOjU
T1i8d389n9Wr8l4+VvrEAVBl6iYsgXd/PZfnVUWlSp84AKpMnYTFehvYU/DV
YSyoSPs99cew/B1iKtGLOPbpz9asqvz3knlvIbt1Xj62hYgFgMXUSVisd38F
Xh3G3w82uKO3hOn3cjAxUaqyw8qe8FNCK/S7OPz3kvlvIfNfPlb6xAFQZWol
LOrdX6FXh4l3a6i//pB/Ry/jFqkwTCtEoCLk5dx5sVjmvWSBt5AFXj5W+sQB
UGXqJCxKT0KvDjNLXiLfw8y2LSJKkXuZtnyhx92t82KxzHvJAm8hC718rPSJ
A6DK1ElY1Lu/Aq8O07sYxd24b3/jw4uo96aKHZD1YrHse8kCbyELvXys9IkD
oMrUSFgybwPLe3XYrYlkeHwyntyZ74szAQy9Rsx7L5n/FrLgy8cC7+0HAChq
JCyrfyk8G8svhiazcb+X3SLFovSJA6DKvEJhybx27OR4H8ICwKZ5hcKi/gc9
elpbzBtTS584AKrMaxSWTVD6xAFQZWokLACAugBhAQBEB8ICAIgOhAUAEB0I
CwAgOhAWAEB0ICwAgOhAWAAA0YGwAACiA2EBAESnUGH5/Pn2CgkJ6Y0ltvAR
sQAAogNhAQBEB8ICAIgOhAUAEB0ICwAgOhAWAEB0ICwAgOhAWAAA0YGwAACi
A2EBAESnlsIyT5qNRnN0XfroPdf/60tGqT5cCh/KHwrwSqmCsFyOWo1G55Q+
TreXikZAWIKlrofMjpKuf2PkdYTnC4+m8RtNk+Fcjo/qr8xxzTrCg1bgFAAx
qKWwBPBLSVXZvJ4scEnnF+TV9bCTXC7JsccHwgKKorrCwm+7reGo08jc300Q
sp1S8dNOI5OaYimJqEbbGFJjTas+1JBwSa87WyJUvGFyuEvNUaLyeUfCLpkO
OsJyfdppiR4JT+biIxUxxpejjojTeEPbqXCD20y3m+JgLh3jPovWO6dz4yoN
L+up8QTCAgqk2sKiVgRXA2sVBETDCw+cIlZBMhMKwysJN2RVGMw0Pkit8wxW
jli4DnSml3Ic2MJPp6d6L8MOlNA1hY1whlxtjqano+mlMmY2NCZWKZnDlEoO
BbendiEsoEAqLiy0UiIJy1oNyfVuH9jRjhU1CWEJPDBZTVhYnSqKYA1Je+6n
apo81JEGs6dTltTwHOaGjm1ayjHKYfXInNNU+wNhAQVSBWExd2FORGFxt0Lr
KRh5Nd3Oc4N4kbCoJa92ZHOqUIRSzJK2Nqoj6tQ9nTI1GPFRimHJEUlNOr3M
uA1hAUVRCWEJLu31hMVf3aGHt+5WaHFDYhWPrG9Y5AMWV0PyhGWB4HjCMk+G
+rkKbW1YdJFsixxlMx2OOtt6yyZr1psmsTOiHFmPzpE7qVFy6o4YhAUURSWE
hWKJ7FPZ8Hq3H0hmHuGafYp5Puk9vbzPbGcWNmS8ykQd9EDGrjNPQIIuPTrC
Qk10pnofJDZHnSHbs9CBseGPU9juJrViGGFzKqKaZidhB/JBjZ1DZgE9hLCA
oqiIsLwlgl83F7vML1m4stkWwRsHwrJx+OORZqez7QRCzbwfnLwE/juWU/83
cvNku9Np4gdyoDAgLBvnmn+hzL9TJmHR28AC/kiBhyXbfrXz61PhQ7l/VgBe
MRAWAEB0ICwAgOhAWAAA0YGwAABeyK9fHxx+uvk7hAUA8BIgLACA6EBYgOTp
9nzDlN5lUBwQFiCBsICIQFiABMICIrJJYfmVNQeqyuaFpfQug+L45euDA4TF
4+P73aNPK9rcHu0uN46NafTLX3fbLL0/WuoGt3z/o8mJrBvp4Hh2/jQb9Nr9
mZ0TFpZVRvjx1x+HbZXIc2e0yxz81brwZoCwLGeVy1XblHJtr+UqUaiwnBzv
D+6W5Jyv5zazaQ8vzPHeX2+rISylN11Jai8s/BqTia66T0d78vPu0RcyGA7f
k8lHaUCn7GN9NxQ24joZvudV7+3uUnWfVDxgKidUPrMxBVVVfuV+QdvbVYo7
vdY3TZ2pr3OvLI2PaMUTlpPZ/hY7maQs0tg6nomPO1IQJomKPe7G/V673RsP
Em7J8tvCZpLsiIOZyOHFz2f77KA/oxyZRCUsktkZBEbPnz57ov2VGxAWd/R0
hSonNIl5E5QJBZWUZS+nTKOLLpK3Rc2FhS0lMd3y+mETbe5r6lQmx16G2atF
XZ8XQ7Hc9D3RtmeXH114qir/CjQF/eZU5bqUX6EpriKKQPFQr514SR6E+6Ub
coWF68D+5I5Lh9CTdDLTexl2sD8RqrLVEzZPaZ9UIu33xpPZeHKnjJlNkoqw
xColc5hSyQ0Rs88Zvez0WYN8MbS01CmoP1Kn/NFTIxwc87wJCl4qwctplYvk
LVFvYfHvYmZaraXkXBv8lL77fKRSVuI3GrvmzGUfDDyCWyHVnF+5XcoPRVS7
FE0t9i2vdXnglbWjNWcRcaGg4IQrTG98IgWhLZSBckSkQTsaZk+nLKnhOSfH
Ozq2kXpiclg9MmeWngT896cvMO8yMHM1QY2nCVxNEEgDoJUhO+aLJyj3HpTN
WeUieUu8TWGRZubStUoFag7dFtvtnFtbUFgWX2N2hUFhWeBbXutaWLJlFwiL
WvLyiauMK5ggiEy+l6GtDdnoU7d0yoiGER9ms0WPcJUckdSkXIgC/q8kLFZH
lgoLF41QCGSP+YIJygQ8qwnLgovkLVFvYbGvFnZ5yPn1t0K+sPBn+Gxf7D0M
DG1A9DHtO0TmxTDn1hYOnrOVq1KBCoOeuMVDvc7bCgVq0+MTEpbZ4Fg/V6Gt
DYsuBonIUTaT43E/UfsgGbeYL4DEzujp1tITnSN3UuPBLM15eLtgK2QkImea
7kNbIS0avDivcKUxz1SY3aIuE5ZFF8lbYqPC8vUxPp+tx5giRz+s41eINGAz
zk+JK+EzFbw4aLcPPpp6dDwsM00phoi9xUdeSkXMnzKeKJtgc07lFm6Fn60n
gdrYL+70WjfqH3hl1fjwh9I0RAK+62m32aZG74PE5qh/nJ6og3Ntwx+nsN1N
asUwwmYmopre/oAdyAc1do69geLC4o+eP30W5jGs3LC40xQcPfVA+2D4XtUZ
mMSlE8SrFbPpzy/lLLhIxMOWIi7+CvPLbw8ONROWV4azUjaI+V54Z8v5wUlE
7li4or9uLn20QWFAWKpF6cJiP56N/cuWWfY3cuWPNiiMTQrLL6w5UFXoOyCR
aCsUV1h2tpJstaV3GRTHP357cICwAABeCIQFABCdzQqL+w0UAOBV8o/f7h0g
LACAFwJhAQBEB8ICAIgOhAUAEB0ICwAgOhAWAEB0ICwAgOhsUlgAAG+Gv/sU
ISxISEhISEhISEhISEhISEhIbzn9P0iddRg=
    "], {{0, 109.5}, {278.25, 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->96],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{377.25, Automatic},
  ImageSizeRaw->{278.25, 109.5},
  PlotRange->{{0, 278.25}, {
    0, 109.5}}]], \
"Input",ExpressionUUID->"71e69b41-2937-4d84-9ae5-882cfa03b3b8"]], "Text",
 CellChangeTimes->{{3.8311824176804323`*^9, 3.8311824214080915`*^9}},
 CellID->329808217,ExpressionUUID->"fb231467-880a-4072-a33b-60e4f8894a73"],

Cell["\<\
Clicking on the information icon on the right of the pop-up will open the \
Wolfram Language Documentation Center to the \"symbol reference page\" for \
that function, providing extended documentation and examples on the \
function's usage.\
\>", "Text",
 CellChangeTimes->{{3.8311826590226817`*^9, 3.8311826703074713`*^9}},
 CellID->326318133,ExpressionUUID->"b6993e00-226a-489f-97cb-44434225708d"],

Cell[CellGroupData[{

Cell[TextData[{
 "Use this expression to test the hover buttons for the built-in ",
 StyleBox["UnitConvert",
  FontWeight->"Bold"],
 " function"
}], "MathCaption",
 CellChangeTimes->{{3.831181787550712*^9, 3.831181851468839*^9}, {
  3.8311819462127495`*^9, 3.8311819479567513`*^9}, {3.831182676154833*^9, 
  3.831182693908343*^9}},
 CellID->20584570,ExpressionUUID->"e20c1dd8-c5fc-4aa8-8ca2-b4e4475bdde7"],

Cell[BoxData["UnitConvert"], "Input",
 CellChangeTimes->{{3.8311818253936186`*^9, 3.8311820203086777`*^9}},
 CellID->164418293,ExpressionUUID->"7344ab11-a8ab-4d59-95dd-121805d34d01"]
}, Open  ]],

Cell["\<\
In fact, while typing the function, a function/variable suggestion pop-up \
appears that also has the information button on it that links to the symbol \
reference page.\
\>", "Text",
 CellChangeTimes->{{3.831181866865263*^9, 3.8311818668662605`*^9}, 
   3.8311829004354167`*^9},
 CellID->157031322,ExpressionUUID->"b170b463-739c-4ba0-be48-2b66376cf6a2"],

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztmFtPG0cUx1H70se++rFfoU8Vb5XAUl9T9QMkKkQQoBKpVPU7JNRu2iaE
lKYplWjTcjM2CYHQlEsuYGwwy9XYSQnU5mIb38hT6Znd8e7serxm18tagfPX
H7Q7O+fM8fx2Ztf+4NIXFxrfqampufoe/Ltw8auP29svfv3p+3DyWdvVpstt
DZ9/0vZlw+WG9o8uvQuNH8Lf7/BHjo9RKBQKhUKhUKjT0Iartqam1rVR7TpQ
FkiE2eijZ77GsmQ59LlRYj8qOb9tOsEHQZmgz1FxlITefug6JaE44tMnrbUu
V6N67SrLWRXASppxdVJFTG+KhjeQendhOSrxhRZOPL8kFE+l6RdgaJYRh2zR
Qiv9KKCtIiGShD8QE89tVGqQ4os64No/mXTo01aL6BsaiBzKd4R0WbukGfol
dhmkX17K/B5bSl/LxNhtRqtiiuPzRPqViTv/xugXN/He+rQ7v/5A5EKji/xT
vWJoQZeiX6odpRXnuxkfinbzVWZXvqLcJmznQkemTXcgpSrV+mULpUGlKXNK
QqFQKBTq7GhqdQd95q1DP5N/gz7DRvrn2UjfTqey+arXwFqffjr/Bm2hn6xs
V70G1mXo547QFvqxsFX1GlgjfTv9dtE/zB2hLTTQrzzJfjonufJUSN9OV0h/
4dWe1x/9eWLp3l/Ldx+HvPMvF1/tVpJQn34qd3TqFr6tdzjq3ct2jFVtA31z
gcB4JBDtmQFHuidW7owLt8eEX6YjPU+j0L6XzptLq08/mT0y6oDb6XC0DtBT
b7NIVi9kidJnGrlRyx2QmErOb5tP8EFOYKBvIuogk/fOhntnt++MhW6PLtx6
GLw3sTTwfKPr0ULXWAjaPbNh6GMic5m1n80bdZDSl06Hr5BJEwwmKY4SvnE6
mLT229wH0ZqsfRNTGo3BGpfQd44ufD8SWN9JAKDfplZ/GAnADQBXg5GYicxl
1j7cUQZN1z49HRaXjJAMuesdzg53K127LcPiVUFezs1DNHygxaGS0x2AdhKu
9FE81Cp3JKPQntqBxJKcHSF1SYVjVbhYUr3bXWgnH4RfkimTtW8wJJHODb4I
w4YP6CUD/SdLW8Ho7o9ji50Pg9DSMx2BrSCRNlyPPv0EjG7QEv1+ekqnOiHi
o+0EGWFBQwpkmSSFKLlFE8IE0m7ibUCS8AdiEnIblRqkG7KoQ3FJpgz0jYbE
k1l4wYNnPUXvCwzPbkbjqb5n69/5AlJj9wR5CYynckaT20mfIraIvqGB+lvI
PsAeJJh9Q95/KH2pQ0a3JLvo7xyku8eB/rK87W/tp4HOHzNrsO3L9H8aD8WS
WWvpH2Ryhk1mtbWPnnpg0urcwkHIXUemV+7gvB4q9GcvaaJUOTV9chL9kw5E
qyLd+GVQC9cJfU/R5yoqyZSBvtGQWDIjr31Af3967b/j442dxA3fvPwskNY+
PPiNJreePnf+jdEvRiC2KKyVQEqk/EAkQ7MbrqpumCLQpeiXaj91+vvpbP/z
dem5f8MXWHi5B2gml193j9OHvvTc73u2tp82XI8+fflnJUP2u5TvZk2DYuMi
gUKPBwmUa4tw7GlS7720A+1D38b8NC3bufVPTbcyAylV1bkEpVSxszqncA2e
HFc8nM/FKcmwgb6JqLnwv/BNv+tR6NaD4D97h4BmJ5HtnVy5+YDQl9755yMx
E5lPgz66lM3R3z3Mesj3/dedo4v3Z1b/FrZ6pwB9QEIP3/eHXoTjqayJzPr0
9w6zRu04HzIxM2Cgby5w+yDtndv89Wn07mT45mioa0yAN4Ee8bc+rz8CV82l
tZw+Wsem6Uv2b8aG/VF4wZN+5/fMRaClkoRI305XSF/ydiItufJU+vThiYO2
0EC/6jWwRvp2+i2jn8qiLTShX+0aWOvTj6cyaAsN9KteA2ukb6ej8WTVa2CN
9M+z9emjz7xL0UehUCgUCnW29T/jsrH5
    "], {{0, 37.5}, {127.5, 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->96],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{171.5, Automatic},
  ImageSizeRaw->{127.5, 37.5},
  PlotRange->{{0, 127.5}, {
    0, 37.5}}]], \
"Input",ExpressionUUID->"d0f8f917-5263-4d17-8792-72adfd76452c"]], "Text",
 CellChangeTimes->{{3.8311818669545507`*^9, 3.8311818669555783`*^9}, 
   3.8311828257312193`*^9},
 CellID->781485454,ExpressionUUID->"ec957277-e657-4773-9b1a-4eb30915f32c"],

Cell[CellGroupData[{

Cell["RefpropLink Reference Pages", "Subsection",
 CellChangeTimes->{{3.8311829310136247`*^9, 3.8311829383569717`*^9}, {
  3.8311837291734233`*^9, 3.8311837311870365`*^9}, {3.8311860358010645`*^9, 
  3.831186059552537*^9}},
 CellID->67841865,ExpressionUUID->"68b0a522-45d3-4fb0-a1d6-7115e7cf781a"],

Cell["\<\
Unfortunately, the RefpropLink functions operate with limited functionality \
in this regard.  RefpropLink Documentation is built using Wolfram Workbench, \
which, as of this release of RefpropLink, is out of date with the current \
version of Mathematica.  Among other cosmetic differences between the \
RefpropLink documentation and the standard Wolfram Documentation, are the \
following hover button issues.\
\>", "Text",
 CellChangeTimes->{{3.831181867039345*^9, 3.8311818670403347`*^9}, {
  3.831182949035409*^9, 3.8311831885238323`*^9}},
 CellID->715501182,ExpressionUUID->"142e3d26-cbf2-4bf7-8c3f-c1b52ad9cf85"],

Cell["\<\
While the function hover functionality and the Usage button (double-chevron) \
works, the information hover button for RefpropLink functions is disabled \
(grayed out) and not linked to the symbol reference pages.\
\>", "Text",
 CellChangeTimes->{{3.831183581167306*^9, 3.8311836525633373`*^9}, {
  3.83118384189987*^9, 3.8311838419008746`*^9}, {3.8311841931864166`*^9, 
  3.8311842442418547`*^9}},
 CellID->335113740,ExpressionUUID->"7153723a-3ea9-467c-93e1-c6d8a35a85b9"],

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztnc1uHElyx2X74qMfwBe/BbU3Hw3wZMMPsCvOLAx0r4FdA4aPPqpLXMxT
iL03aQTsnaD4BlpqABEkdfEb7EoUB1jXR35EZkRkZVVXdXaR/8RvhGZ1VmRk
ZOS/soqsnH/61X/+6/d/++zZs9/9ff3Pv/7yv//5t7/95f/82z/UP/z7b373
H7/+zXcn//Kb//ru19/99uhXf1cf/Me/efbsf+v/ms9/RUFBQUFBQUFBQUFB
QUFBQUFBQUFBQUFBQUFBQUFBQdlP+fTDL5658osfPvWe8Mfvbe3v/xidnnU+
CgoKii+thjRiYsSl+6iWuA45Pet8FBQUFFqIhlA5oasdurZpjtKfg3Pcl83R
X/zww/dkuRSatDaUiigoKE+leA1pPxlpIErjKhAB8SISr4LIUfPZHo3N0/s4
3z5ECAXlaRX6MEdYAUnfsFUQqyaoCV9iOV1iiygUFJQnU8JFDlvPxCV5I5Y6
CglCQUERin4jJt4UjZYg+T4vfhIFBUJBeWKF/UqLPgJi92E7SNBfg/s786V8
H4eCgoKyl4JH0CgoKAULJAgFBWVUef/T/wEAQCZzSND9w88AANALJAgAUBBI
EACgIJAgAEBBIEEAgIJAggAABYEEAQAKAgkCABQEEgQAKAgkKMXHn65qirsB
ZuCqHdziboDyEvTx90f+hfjnrz72nvLuxNY+eRed/uzodMKksg2dvHN+Ni0G
dX569Zw039UkB1n9lnff5fVUa9RHoI3Z78eLpGw/iKrchdCZScM+0NVxNEOQ
mW9gXg5EgrrUettMre/eJuvHdWhmtnk1WZY2k0tpyNOqjVEetV8xu0rQQCND
7cchTbeyTAkyYwcJKs9BSdDV6XMiL/5aTzO8kSB63Q8y002HRhmOTn9vLVib
5tpHbDanP391+p275BPfJAk6iWoOkaDB6z2tUdcXYiTVkWH2+Sg0sZJ06W2w
GstfjwVLx1z56hw4tTHM7GC4YgzbggQdBIckQW1mmjQm11ZXgQiIT3j5kt0l
efc5mETGplsvGVloZ1wsGoIEmZpRQzkSFLc+QIJYoz8LRhI1B9oPRd52UF0a
7bYKakz1rHsFV4eviEJddV2DBJXnQCQovnZHakPyTVwFsWqCMvRf3OPZpN+I
xVonXWTDaRK0Pu5GLEOCsu+eUmftQ4KC8R1xTzqwUfUmGhJUngORILfI6Z1E
yRsxx34lKGMVtCAJCgPV3dLKN2JS0HbrVOZZAxttckYYI0jQQXBAEsRuxMSp
PVqC5Fuh+EkUzckpJYgILL1JdO0qE2oKCRpsXzYVPGcj9uUIpBrdORTRSKXO
4oEKkgQSVJ5DkiCTnPQRkC1eCsZL0EOw/jenyPdxHaMlKPyluc1/9/D26OS7
o1hMlGe5uhrkPRMbZ58GKp7pz8wzYWY/aiLRKP2jBdGU7qo8Uqm2En/AAAk6
CMpLUFlSDzZDCZqRuX+vva/fm0/Q6D7PggQdBHNJ0Lefl8FVK0E/it/Wif28
XrGc1Lk9mwNmaVGvo5Zpf8JG93lWPe4n3Vr0an9hASJPXYJS/HT147u3NVcz
ShAow9VPb9vBvSruyZMHEgQAKAgkCABQEEgQAKAgkCAAQEFmkqCv334GAIBe
IEEAgIJAggAABYEEAQAKshgJuv3D6piU6lKv/Hm7bqpstvSU9fZ2eKPvX9Vn
rqo/3NStr/9wo/uz2n7+Gtdp3Ni8D0/hRqIjvNdCBdPBvjhcbtLGB3lCW6+a
5nu6NgemFduv/TQ6EpuE78edPlsf85NwX+FdkgT5gFxuEpLiatJTajEZEc/6
rG6O5wzcniSoMdsoXvvjRaWr0KAUGphvdbtjJ9fOOXDQyjMynhOfPollSFAy
IH4KtAsVsh6o1akrry7oKT57X23W7bfffr6xiwkzo/231logQeFXup4Ys219
JkGSkfrf6tVGXNX0t1v3t+kLOV5rVK3PdqUUOum63N9Q0ES43uMSZFr3yzMn
koOaXm0vt2u+qux6FDqZ0KJU0LipLk/ivse5IXYtzj0eMZqEpGk+3H5RXY8m
GbsoqWiupnLGhIVcoaQYRsEJfEinBCTIroLCaJtJkVgFNUG2y6fmcxtqas18
axcwVILMV2TKu2lJm3Nm2wrxPOVG6CnueOIU55KBphafZdqiS2yo85Yt3ujM
4tGmlr1vkv1U02H849VO2CNxfOWg2b6IpoJMYPWj3OBdE3OP91duOhpuv6pv
pKZuKDpdzlUlZ1xDzXitYze0JBR9iGrOw5IkiF2L/WUoukDEqn58zCSLzmWT
QuTbehQaa8KNWM8Ev+hOTMzTxJzyyaOfsosEBTFhDdk0uyFdCPSH5KHcNWdc
vGgmmubTJF+Cbj9fvL8kfBbGMR2cxLjT3Ii6JuZeolPjLhaxtvNcZTlDelH/
e1E13/ox7U9CPfcmn9TfliZB/jJqAxLPR230uZHFSlD/jZiwRCSzJr7sEn1I
SFDsmN41P1uDCummeyQo7BGrtqlvSRzbyxs+jung5EgQ75qYe6kk5E3PJUEu
FTs/29tbsuSDBI0jTnJ3sxMuoeXRTxrJvBHLTJvA7AwSpD2O5jERJcg94xIk
SL0R4zcaogRddAt4WyHQsXTTmgSJPUqMr++LcmMlBidR3+bGDe+amHtip9Sm
yR0TvapKMivkakofmoOrtW23VmZBb6NM1n2ABMWhs1Ov+5E/EsyUIPKIj2hX
4nF07pXLmq1zoLOsPTFOSJB+ivl8HPe6i8lx9xjcGemiRJ85dGe9svJIG4qe
PZKnT+yOQ1sFGR+O48fgUtN9EsR75CfLwMfRqim1fpwbYtfUx9GBfb3pz8Hi
xNgiI7UWHkfH11lFH5r6vgK5HCQyOfIBErR/EsuG3bioBj/NG3HKOGtjvyrx
S/lMNGmaqj6YFEiQR5Sg9bp5vLCT5c/b7VAdG3HKOGsjvvp8sX21Un9rdgBA
ghYFJCjNze3nm9mWoEuliQn/lRkAY4AEAQAKAgkCABQEEgQAKAgkCABQkNkk
6AEAAHqBBAEACrIcCbrcrLc34le325X21d58GFYnyU7d2bl1asr/6e/eAn7X
vuxwIIFizgxr0Taxa7gkV3exyc/d3wwSWIwEJaK0twDmNFR0NCdsvX1h886+
lLS3Pg6RoNkDtZsEuco7hmvyaEOCRmHfu2oCFW5+5QNo3yV8+Pq+Ciq0uWRf
cbpThuOufRGmO1KRN4Zc5TvRh9AgqUOG1b5MSlpRLViX6n+rahN3M3Qsdp56
qHeZEEeSUsew2TRGSk41RGnjKZfsPm/Vxs363kF0vpma1bZ5N7w9HoUudiYY
StaQ5IzS8faV1bsgYnImsHCxRuMTTTdFO9WFliQ8GnxotEQSrc3PUiRIuqbU
F+jqwh15X8WZ2WZIMwo+N+wp3CyVIHPd1y+CTZ3ODlskcINm56jQ+V4LQQXb
zcgxWT/ttNK6LLgq12nfBZYujo0nXWT0RQs3nh4F38eoa/ogmjougN3WBFFs
aU3pCG+IO5PouG8rnS3Ow8gf26g7S+0mtaMnCY+GPHySP4K1fbA8CbKZYK4N
t+5HGzR3fXGXElc/9ViDzWJ/M8Iqk+tdnEL89FYb252jiMFeCzmOJeokuhxn
I4mk/6pLYJPGgoc22nGIEsZ1l6gRLzi9gxgHimhIfBWQnImWQLYhwZlUx/nl
gGUC94f3jgct6iafAn1JEjvfm/Ni3OZnJgn68u1hYtr4XNcfmuGrzpuDjeCf
3ZqvztuU+NJVqC5lC+3Y1uMimA2ttUcerp1N7oNt4rzSDHrHmgqNEF2erdsm
cix4O3fmLO5Y0nm1yw4eSfuV77iV9/M4kuZIHKJe45JL1IiJRs4gxoGy5/LQ
KTkTDaXqTLrjrQUhDq4J0R+xd4luSqmVTpLYeSFFw7P48dGzdQiLlKBu+Jq8
omEn2WVyvo5kMwrX7TMil1SxqnRJ5c5ip8tJpUzeUASaoazvu439+kabplDa
gpgnkWOi8+1ZqS47eCTpV77142Mqa3aCtJFhIdKNZ42CvX3IGsRo3Om52pSP
cyYZVWewp+ONA2aUxYzNGUp7lt7NPAni0UhMJUjQMLpNnLqU61aqVZxybuKQ
Z31uNN0y/Dq0bL5qHtC54fAP6xQf2lSRFxi+jskoMpfpvFMtpC5wsWOx86R1
1uXmBv+cu0ojycPStRVdtQVPsownRsFGo9vn7cHKRXIQg4VxU2+jrYIEZ8gw
sYYEZ9SO2/rCqsY2IU5t1qgQeT9wkZ2kaETR4EMzQIL4sE7PciRoX0T3MofD
zo6dVzOm06zG89jrtfsA2s316gCGJgUkKObRStDd2Tb5/GEnZjWexv9vzuT7
zVnplhzpBzuFo1FwaLKABAEACjKXBN0/AABAL5AgAEBBIEEAgIJAggAABYEE
AQAKAgkCABQEEgQAKMhiJMi/6Wz/7Ko+stpeizWD43dnq+PNxT6jernpHNA8
3CfehyYOzfsg216vWMR6OyJXMC2aP97rDVexyIyumeO5mH52LHLTcnRG9Q16
+cmyKAmKYpg7HHuP6iEoz05eDY+YYLwx0lwp2h/PK12FSoVrdwnKsiAFc2iX
Xf3ZT4QEDUmD7khwlbfv3LVHzMuGq2ojXNObg/7q7I9U5/f+BVIzg3j9mosq
uL77OuvVypzsfYsqk+WBm6RiMgx2454uF5u+2Gi4v9uvzlWv0hFru0N21WOj
w0NKx6t94TE43o2X7aYyQdxYiCMldJ+6ROMgm7LTU4iYnlHGQuh5fjDpWKSS
zbgdNJSZA7yh0ZNlfpYkQce2UGHXotptuWBPjCdUt6GB03x/xO7VYEYw3FqB
1rdTptmVhVuQPbSVLyqbLXZicnidHDecz/f29W1+HdS8SkeMhpS77X2zX3n/
3TwKcl46Ig26+YoHQew+nX1KHGIxTNRkGSVb0PJBCWZ0oppsWv0wzqkgJAY9
e7LMz5IkaMgqyOxgJg4NMeX3/nLGydzx6RTVd9cdd/2iFqJxFytr127qZFRn
qBuiM7pX170R46EWQmq/mkSCaByOWWXe/US2aKZSN/jMQ82ZQcG8D0/Uky01
iDTOWhD4iSMmy/w8Igki15E9SJBwJ6JLkCg1Np9TI07rDHVDy17Fq4klqP9G
LBgvWYLaff/jRYI0Uv3ZoplKSVBYM+HMoGDeyyeOl6D0hUyWoOzJMj+PQYKi
Jbpw15BxI0YFJOdGLG0hGvewslnw2xEXHwcJdXLcILcVX9r/u8M1z17Fqy/p
iA2VIO1xtDZe4qC7+XVRCasgofsOFgfVlBQx0cOEM4OCGY1FQmPF+lzq1SCI
gz5wsszP4iXo3u4y1zxJEx8eNs+HMx5He+N+P8MLpf69+DjaWWgfA64Sj6PJ
znjR4wVCXCfHjXt6s6A8r9C9SkZsqAQ9aL+Uj8fLhUsIQrjbIV8kDHgcrZuK
a2oZxSx4z4cEM8wWKdm4ILOMonFOByEc9MGTZX4WI0ETkrjsTlJ/FM3Wdgfg
Rln6gwAeHZCg6euPod3arrwbZckIAnh0PEUJAgAcDJAgAEBBIEEAgIJAggAA
BYEEAQAKAgkCABQEEgQAKMiTk6Dg70vbv0rdzxZe/k9wu7935q+U6lu1cJ8v
Jm1ojr84Um1OuEHZzFvDHfgfYrm/2R4dhMPo4JOToDHxn2ILr/4jGRI0xuyQ
hg4r7NmmnqYELcjJJMuRoEe2hRd7PSexWxT3edqGTIXURmrxfl+SA6vt5dkq
WHqdVe4luO6t1ctw9y3+cn3edmQ0H1YDN/LSHJZ3D6PvTynbplHL4QAl9r5j
sYr9j89N5z+Jp9BoKkt7xn0PLEaClr6FF70/Ul9eHrUK2r2h2/BNcLE72uu0
9J1raROM7jX/4E35/pe+xaFMhiV/I6+Ewz27eUjbpnmkTNO2XBCaTrxoH23K
EfaRp7HQqJ6l6XHfC4uRIDezFrqFl+JJ1lYtWTdiOzTks1dfdXhlU3qqSnp7
kXUupSXIVUvvxNVrKmc3M54A2tY9Ud/Fex9+MG1QufzxnaDIBVHK//xeaFma
Hvf5WYwEhRNh+Vt4HZ4E8Qi7Cny3rt54xvNX2dWW2owkqHdGpCWodzezzMmb
3jYtkWnTSpCW/7tLUGLc98JSJGjxW3hp6pFoJTXXJm3IapS6kRrfrSvhWxAc
G8wu+FG1xN5lwlDmhCVjI69UAkhSk942zaNvfca1a1juNV/J+Z95I5bM0tS4
74WlSNCXpW/hpasHa0V/FLOLBPV2R9hIjc6vLjKVrMbitOpGh+7S1nz223xp
22cpQ6lsaKYNROpxtJwAyu5hfdumUcs00xLbkWmxEnLPR1vKf+seCYK+B5qa
pfq4Q4KSaJkAHimPdkOzp53JkCCwEB7vhmZPO5MXLEEAgOUDCQIAFAQSBAAo
CCQIAFAQSBAAoCCQIABAQSBBAICCQIIAAAWBBBH2sp0gAIAACSIU3U4QgCfJ
YiQo+SqfPcL3f5N2hJtwd0S/k2HYBAAgjyVJkLpHon2Hmu//pu0119qcYHdE
z4S7sgPwhFiSBEXbOt3T7RHcLjHhWoUfmXZ3REOZHS8BeAQsWIK0rfz4/m/0
yLS7I6oHAQBZLEmCohsxtp0d31kue6/FsbsjJnZbBQBksCQJih9HC1v58f3f
hB3hJtwdUdgmHTdlAAxgURKE570APDYgQQCAgixGggAAjxFIEACgIJAgAEBB
IEEAgIJAggAABYEEAQAKAgkCABQEEgQAKAgkCABQEEgQAKAgkCAAQEHmk6Cb
m9s/oaCgoOilVom5JOjbAwAA9AIJAgAUBBIEACgIJAgAUBBIEACgIJAgAEBB
IEEAgIJAggAABYEEAQAKAgkCABQEEpTi6uOHmuJugCQf2mEq7gYYR3kJujo9
eubK8+qq95R3L2ztFz9Gpz87Op0wFW1DJ++cn02LQZ2P1XPSfFeTHGT1W348
yeup1qiPQBuz0/EiKdsPoip3IXRm0rAPdLUJZmbmgEPkQCSoS603TTadvEnW
j+vQzGyzsW/K5FNPLqUhT6s2RnnUfsXsKkEDjQy1H4c03UppCTKjAAlaKgcl
QR9OnxN58dd6muGNBNHrfpCZbjo0ynB0emotWJvmiklsNqc/r07t8UBMJAk6
iWoOkaDB6z2tUdcXYiTVkWH2+Sg0sZJ06Y0P56D1WLB0zJWvzoFTG8Ogg5Cg
BXNIEtRmpkljcm11FX48ERJevmR3Sd59DiaRsenWS0YW2hkXi4YgQaZm1FCO
BMWtD5Ag1uiDYCRRc6D9UORtB9Wl0W6roMZUz7pXcDUeKUjQgjkQCYqv3ZHa
kHwTV0GsmqAM/Rf3eDbpN2Kx1kkX9HCaBK2PuxHLkKDsu6fUWfuQoGB8R9yT
Ro1CghbMgUiQW+T0TqLkjZhjvxKUsQpakASFgepuaeUbMSlou3Uq8yxI0CPi
gCSI3YiJU3u0BMm3QvGTKJrJU0oQEVh6k+jaVWbxFBI02L5sKnjORuzLEUg1
unMo2EhBghbMIUmQSU76CMjdoTkpGC9B34L1vzlFvo/rGC1B4S/N7WRxD2+P
Tk6OYjFRnuXqapD3TGycfRqoWB+emWfCzH7URKJR+kcLoindVWWkIEELprwE
lSX1q95QgmZk7t9r7+v35hM0Ou4sSNCCgQQlJeh5vWJ5MefkNUuLzN+hH579
CRsd6erV6YtoVQkWxVOXoBQfP/z47k0N/vj/kLn6+KYdJrxHs1AgQQCAgkCC
AAAFgQQBAAoCCQIAFAQSBAAoCCQIAFAQSBAAoCCQIABAQRYjQbfb1TEp1aVe
+e5s3VTZbOkp67Pb4Y2+r+ozV9X2um59vb3W/Vlt777EdRo3Nu/DU7iR6Ajv
tVDBdLAvDpebtPFUQ3dnVdNGj/9ai/01D575upBlWRw7m9jvR7V7qCxJgvyg
XG4SkuJq0lNqMRmRUfVZ3RzPUY89SVBjtlG89sfzSlehQZNIqlwbH5btYuQX
SlkJEus8gqhKLFOCyOxoFypkPVCrk/n5nJ7SfW7+rTbr9ttvD9fbtV/DmDrd
t9ZaIEHhV7qeGLNtfSZBkpH636raiKua/nbr/jZ9Icdrjar12a6UQiddl/sb
4hJkmvBrMKeEX0y7tkXJGhspdiIxGPtJDK62l2drUlk1yzured7TorMcJUz9
I3W415+MMU2MHUnsVOq2yZDbEDux1/kZWKYE2VUQOejnS2IV1Nw92eVT87kb
L2LNfGsXMFSCzFdkyh/bQptzZtsK8RTmRugp7njiFOeSn79RKPgRHkOxoc5b
v3iTJcg7IBlxoRB7+k0yyw1yP51B+mEd3CArgimGTvc8HN8gIGLC6DFX15Ci
5d6xi8Orpa6YPMmG6IzodX4GliRBx77EV5z4iuBGystEPLJkLpuAk2/NRU24
EeuZ4OfkyqhPitAIP544ZRcJCmLCGrKz0l3QZf+dBX6hFMSfuM1HKnKJGoz8
5JadHmpmRSOJS7xQOQwIT5jmg63sls0Jf7RQD5WgZOpKyZPXUI7zM7AkCfLX
KTt94vmoTQRhUJYqQf03YsIS8YvPsfDqmZgXKf/9hJUr9CunODGtQe5nQoI0
s1pnRc/FFjMkqDsY/difyaoE6WP3bVoJkhrKcX4GFihBZBD5UlOeCEkjmTdi
mbc5gdkZJEh7HM1jIkqQv1hzCcq6Eas1luZ/vJ7RJEgcKTs7YoPcT02CdLPc
iNBQIjI5N2Ld5+ZZir2tS/iTCHXO2EV9V28Jo4bYjViioRznZ2CREtRNPXdF
iFbXmRJEnukR7Uo8js590mLNrldmHLUnxgkJ0k8xn4/jXncxOe4egzsjXZTc
ow/7SLN9+s18y3wcbRs6jp91+xZFt/VHncwg81OToJRZ3tk+z+MW1cfRNCzx
LyWF34/w505CqJWxk7NXSl1Rsvoaik7E4+iyJJYNu3FehUk4zynjrCW/emx/
glKEaYdyAKIuHR6QoNSQNb9HW2+2l7uN493ZdqiOjThlnDXtq7vzbbXa42r8
8TLtUA4BEvQouL69ux7xZ9WPgKbje/qdCHjKQIIAAAWBBAEACgIJAgAUBBIE
ACgIJAgAUBBIEACgIIuSILIXmfgHD/EfQuz178z7nJnWrNvSKmdfsqJxACDJ
kiQo8eaFzGOUoDGhgASBw2U5EsT2ItPf22KbhiX2qnJmpW/9Bg7+1ebgJZrb
IbuNfcvaX4vvnxZs0kXN+g/y21Lq5mkAHAzLkSDpLWntrc9o16nEXlUefkfj
X4g2L1kHex24JhK7jWk7U0lvgGqv7UcvNUd9l5ZDfgMHbfM0AA6GxydBwo49
bjGjvnMqSZO6AYJ511reKCyoyTac0VZciR1gxF4nXhi3xq95HEonGwCcRyFB
wa4p6qZhVj3YZGTqETXnSGyllSlBif21dpeg0DgkCCyCZUuQuP9ScFPTTL3U
XlWp6Rluz0j36ONbackSxHemUraESmxClSlBif2p+OZpABwMC5Ygff8ltmmY
vldV7ubDypZfaQka9Tha3fsxEB+6HVnf42i+eRoAB8OSJAgA8OiABAEACgIJ
AgAUBBIEACgIJAgAUBBIEACgIJAgAEBBIEEAgIJAggAABYEEAQAKAgkCABQE
EgQAKAgkCABQEEgQAKAg80nQze3tn1BQUFD0UqvEXBJ0/wAAAL1AggAABYEE
AQAKAgkCABQEEgQAKAgkCABQEEgQAKAgkCAAQEEgQQCAgkCCAAAFgQSluPr4
oaa4G4+dD22ci7sBilBegq5Oj5658ry66j3l3Qtb+8Xb6PRnR68mzGTb0Mk7
52fTouJM2/zpeL2S7QcdFL5lzkwagYGujuPtSfbQg0fIgUhQl89vmmQ8eZOs
H9eh06FN5smmRjOjlYYimnZ3nkGi/bh36VaWKUENH6sjSNAT5aAk6MOr50Re
/AKDTqtGguhiI5gObg7WKV1/OLUWrE1zwSU2m9OfV6/s8W7B4x1gEnQi1YzE
IWWzLw6hfR6Qxm1Jl974ng1ajzWBGryG7Bx4ZZdnmR0MV4xhW5Cgp8shSVA7
HczcIRd0V+HtiTDL5HVCN7O6z8HMNTbdesnc5rTTPL64CxJkakaaI0iQUrMv
DtFZod62narnu7o02m0V1JjqWYIKrg5fEYW66roGCXqiHIgExQuGSG1Ikour
IFbNzlbSUP+KIp7C+o1YhgRl3z2lztqHBAWhHu7q0EZlyYIEPV0ORILcIqd3
5iZvxByPRIJCn7u7S/lGTPJ/ZKPDzhrYaDN8wo0bJOjpckASxG7ExIcMoyWI
3Yi1OR8/iaITYXoJaptQJqx4lmwqeORF7Eu9TjfqZT8yletqFLTUWTxQwXhB
gp4ohyRBZkbQR0DuDs1JwXgJug9uOswp8n1cR44ESb+U7xEr5Vmxdpb3OZ7p
z8wzYWY/aiLRKHkcLZvSXZWDlmor8QcMkKCnS3kJKkvqaWooQdOwr9+bT9Do
Ps+CBD1dIEFJCXp+dHLyYiLFMEuX3F9hT8O4Rvd5Vj0EL05OjjIfQ4FHx1OX
oBQfP7x996YG7w7MytXHN22c8SLM0wQSBAAoCCQIAFAQSBAAoCCQIABAQSBB
AICCQIIAAAWBBAEACgIJAgAUZDESdLtdHZNSXeqV787aqpstPWV9dju80Yuq
PnNVba/r1lfb68if6Ah3WKhgfOvrwuUmbXyQJ7T1at1E5mLQ6daZAQ0dKvN1
IcvykGHdg89ZjPJ5CEuSIB+Ky01CUlxNekotJiMiWZ/VCcU0EtToz2p71/14
XukqNCjrBqZo3W4gQfn2IUE7Wh7Xetmwz9/6MiWIzKN2oUIWFbU6mZ/P6Snd
5+bfarNqv71/uN6uu6pGFvy31logQeFXzmBVbcRVjXaKr1O72rhBjtcaVUur
XSmFQ++87W8oaMKXrpuxBJnW/fLMieQX45J1Rmwojj87kRiMu0AMrraXZytS
WTXL46B53tOisxylQf0jdbjXn4zhTgwrcz4+S/RZ6jLz8LwyNc66EeeW+Vlx
PsupOC3LlCC7CiIH/cxKrIKauzkb/OZzqwDUmvm2iXxjjUqQ+SrUjcBI94E4
HJ3irPn0i3rBj/Duiw11fbduCwH0y2lZgrxvkn0XTzEIollukHfBGaQfVsFt
ryKYYlR1z4MWw1iJaaAPh7qGFC33DmsqSuSsyHLqLOuhW/a703P6xfMZq6Bw
iF2Jr03ideSWPQuKRIlcL8Ixspc/4UYsHD7xyhLnv/1qFwkKusMaslOPXsED
/SFzU57Uzji/yguSTnrE4x95Sw1GXeCWnR5qZkUjmudy5TBWPA2aD7ayWwwn
/NFGIfPKEjkvSxCzHJ3FPKSjzNJbH77MVJyUJUmQv6KRZWTWlOFGSkhQ/42Y
sLojORZerBPJHwQkdkxfV/gZIVfoF1VxYlqDvAsJCdLManEQPRdbzJCg7mD0
Y39+qhKkDyt3XjxLHN8otqGHSQmylnm/IEHpIQ5mSriSp/cgmRI09EZsdwnS
Hkfz7iRW7M204hKk3ojxGwdRgs63azoT4/WMJkFi/O1kiQ3yLmgSpJvlRoSG
EkHLuRHrPjePX+zSMeFPYhQyhlVwXjwrtKycxVLXC47uT3QWJChBGIpm/nY/
8ueEmRJEnkMS7Uo8js6UIP2m3nw+jh32Tw7r1p2RroPuHso+WG6fFrYO04ai
x5XkOQm7g9BWQeeVrxemnHVG7JH+nJYZZF3QJChllsehz/O4RfVxNA1L/PtK
4bce/LlTbFkf1kSU2FkJy9Sa9jj6uNpUYaC8P9LjaCGf8Th6XyTWHkM4r8Lk
3I2EtbFfDfylPBgY4UPjwEccEuQRJWi13mwvh1wC7s62g1VrlLURX92db6uV
+lszMMm4HBxPU4L+cv/wOPh0e/fptrwbk9F05668GwBYIEEAgIJAggAABYEE
AQAKAgkCABQEEgQAKAgkCABQkEclQe0f9nzq/u2pfPe6/XPTlxeZxi9fdjaz
jO8B6/9W8Sf2s6lvO1t/1rugdtBG4PAxXeAOjx7EXaKtIcVzl+zi5/pXdM3f
xo/yc3aeqAQNHWtX/0AkaLA/JNnaF8DHt7gUxCk5bhB3ifbe4pnor3oEEjQ8
yPaFlvP2yKet35DKR9jE2Vy5jP4Hpi5fEjvOiKnWvpLzcuVbcRfBY2O8+9Y2
WkNetOGpGPkg+WwMrraXr1eksmqW+B+rbt3i+vWtTzbTXNtEl2z1keaD1m57
4uv2FTxr0Fc4VtsiEVPdzhvBqnqpnK6PFO+CHSM/40YP4k7RVjJBdIbY50Ew
7lWvu+ETZ0fUKV2CdD8hQQnqTGiHuwtgHWQf4fqrNqVphrSvd/2FfiuNxV/s
68Pefvv68OvbRP3u27DRttp5FQ4o90H0OWqXreVis/fsuqxNCte7du53RrqX
m3rb7V7B7t7WFFqM2nIRS7mdN4J+OMJRS4yU2IX0Kih/EHeLdn8m8OgJQXCh
a/RQlSDeqeNjJ3yfuH3uZwnmkqCvDxNz00aPHzQhXr++sXXcv903m8uUtTo3
bIXzTTscWkPdQf9tm3435OrprnHcPeqD6DNvImGWV+ZetUfO2+1lgt59bR9B
iD0STLWp2xsBGrF0NDJHkBp3NRMjJXaBNzduEHeKtp4JgjM99j+JloXwSuNC
6qT8LMGCJajbkOprO624BIVDH8d5WgkSVY6lX2Nc85k3kTarTorArJBs9fHu
SK8EGbetDggRYF34moxG/gjS8NLKs0rQHNFOZAIkyLIYCXLD3WUjnaTthlSR
BDV7cJGMTV3X1FmQl7037QL4pjsSDOgn7oPms5jnill5UnS9cGdFx7+aBbx5
ECT2KMh/22gXajFiUVt+lmluZ48gDS/tcqZ6j5CgeaKdyoRBEuRDF1seIUEJ
PyFBPfhFuw9gu7itXtIri438ufu/RyQk5at/yBnPzYC2LTk9yDKeXUmZD4rP
4gTRzfLKpqHmAWOQfrZ361Uzs2qfu9Cl52/7VJNMmfazjYDelvEt7XbOCEbh
tagjJauod3jHQRwb7YxM4Iv2Hveql+6G+tgOZZzSfRIk+Mms7ZGZJOjPXx8A
AFNj5OXPjaY1olHanwmABAFw8Lg/DGhu4tojd6+3l6W9mgZIEACgILNJ0DcA
AOgFEgQAKAgkCABQEEgQAKAgkCAAQEEgQQCAgkCCAAAFgQQBAAoCCQIAFAQS
BAAoCCQIAFCQmSQIAAAymVyCUFBQUFBQUFBQUFBQUFBQUFBQUFBQUBLl/wH+
VCpU
     "], {{0, 213.}, {288.75, 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->96],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImageSize->{405.75, Automatic},
   ImageSizeRaw->{288.75, 213.},
   PlotRange->{{0, 288.75}, {0, 213.}}]], "Input",ExpressionUUID->
  "62adffa5-91f9-4452-98cb-4ef0257ba72c"],
 "   ",
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJztl89rG0cUx017CeRSSiC+tuSQQ8jFPaSmENIUSmnSQ0Lp2Sa2KRQXnELp
f+Fzb4WU/qAlv4obSCmJo8SxY5smxI5aVbZsox+WvKvZ37tag/pdrbQe7S9t
E6LdVebL0/L2zbzRzEdvZldvjX95YfK1oaGhy4dwuTD29ZmZmbFvLr6Bm0+n
L38+NT1x6aPpryamJmZOjb+O4Hv4TOFj+U0mJiYmJiaml6Tc7OiQo9HZXM+E
uclO78k5V3qk/EFQa9XW8ts4bDdQ7j5UeqT8wRC1ahoAXVF0/VhR+r4rx2m0
oqOzs5NUSXYP2RkjoGPSdbDqltdeDMXG6UAt+WDZ7kqjom2/E3UPT+/ug+9P
Bzb6UPKpMr8WT6V5uvms31vGDklPoSZe3YXkqRm3QrdnWHQwofnvH7eeG5r/
7nefqOlg5n380UeZZ3e+ALRm165vN/rvbqZQpejwT45SAi2TLQ2G9RmaYe6n
3Rg0Bm1goTX2E2W6YdoWPeVVhiYpOicotbpU5UVc4SOSTGg6fty4TTVMXlLL
vFChrNwyxNEanj540J7ucD37cKJa4cXdetuqROJE2fYR3xOUdEF7kC3eXS9i
1q44kbX5Z6UHEZj/ubYT3kFSDdSVQwyUJBVH2n5NkCvtiCB6JhA3NDPEcmXu
2nLhl6XNbIl3gvB/Xdq8+qiQK/Ph6bAWtLAOPODwZLcu2AZEdVkRFbVKnAhB
H81oBI3Qf2hawww31Wis5He/v5+78ejfbJHD9Uomt5yv4pDumau1oIUPjloq
86QCOHUcYmRPlCRNrwmSdcR1guiDnkGDxADNMEPs3trO7SfbRFKxWeZWNq5k
/vl9daNGZPzyiM8/3Q5Ph1nQglsVzbCgcaR9+HP4KuxEs0akMic4QQua3gga
JGnQNir16yubPy7k17Z53Kq6FYT/08LG9eVCvlJ/QWhA4UADJTwCQExUNQdj
GqHZ6/qrUAO3q4u5tW3u2lLuh4X848JeyCqiQ4NxRO5AIyhgQKtLSte7B0fQ
J1HQ8BYUxaqCfPvx1nd3n+EKP2KW2oIW3gEP4hJH7LcynGY4oyTsWSKVO69q
aMXjO2SExEJzFvi/+keBBsObWImz+IAVJym7RCwdEBNwhIanJxzac9j9v3t/
haw39gS5yBHbSh2DjzhaEwdNNxNiRNKsF1pebD03rf8FiERJ7D80RTcTZbLW
sC16CoPW044ePXYns+iwhWWyxb5Da6TLAO30mXN3Mg/xz8o2Bi0KNMyc5sag
RYRGc+s/tNTZm0feduY/8u6H3/58q8/Q0qjh4WP07ftnzz9cXI5rMmmRC1qT
cYsgL7Qm49ZLvtB0w2TcQuQLDSJEYtyCFAQNqlSqjJuvQqBBW1s74Na3yaRF
NDRZ1mwHoGiLaWrJlQMNxA4fHr752x/wz37wyY2bt2KdV6JlQ7OJ4fg6ceJU
s7UrbYfJV4DmEMPtx+c+m59ftB1WbEHCkeUQg+AcP/4OnPX17MmTo7FOLU1C
jYEYnJGR03HPJTUqFssotrHxL1ZXn8Q9FyYmJiYmplda/wGDHDFR
     "], {{0, 45.}, {77.25, 0}}, {0, 255},
     ColorFunction->RGBColor,
     ImageResolution->96],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   DefaultBaseStyle->"ImageGraphics",
   ImagePadding->{{0., 0.}, {0., 0.}},
   ImageSize->{116.25, Automatic},
   ImageSizeRaw->{77.25, 45.},
   PlotRange->{{0., 77.25}, {0., 45.}},
   PlotRangePadding->Automatic]], "Input",ExpressionUUID->
  "410bf18a-0750-4459-a7c0-cb1e0cdf3110"]
}], "Text",
 CellChangeTimes->{{3.831183581167306*^9, 3.8311836525633373`*^9}, {
   3.8311840301727514`*^9, 3.831184050995056*^9}, 3.831184093645665*^9, 
   3.831185967743073*^9},
 CellID->43693525,ExpressionUUID->"317f573c-7428-4f8a-b12d-a678506d6ea9"],

Cell["\<\
Secondly, while the suggestion pop-up is aware of the RefpropLink functions \
and offers auto-complete listings for the functions, the information button \
on the right of these suggestions is missing.\
\>", "Text",
 CellChangeTimes->{{3.8311836594429636`*^9, 3.8311836885550675`*^9}, {
  3.8311837479232707`*^9, 3.831183770724284*^9}, {3.831184256314563*^9, 
  3.8311842599947195`*^9}},
 CellID->316971399,ExpressionUUID->"1ce5e310-19a4-4756-9379-ea5527ffc79d"],

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztmM1PXFUYxoluTLoxxigs1S66aLrBRUs0REvHWD8WNcY1RGhKARNqYvwf
LGFcumJtwlxgsBLaYVGaCGVok8LQKWwKFAZQ6MB8gHGB5/ue+zGHmXFg7uDz
5Gnz3nPe971n5Dcvx77T9t21jlfq6upuvUb+utb6w0e9va0/fvU6efi659aN
6z3t337a83379fbei22vksVL5M8m+UPjQwiCIAiCIAiCIOg0aam/qU6pqX/p
yII7HTK7446rvKh6CKqMGHsUQgElDwvKnaOVF1UPQZWSxp6OoT5d9VlKV/Vn
R43apKtN/f0d2nh2tpQ9CiRC0NGy2WORQEojVCVo4Nnwuaeutipiuepur983
7PcDXqhY6ZdVn4nrt+OZup40Hwq9I13x7BnaEFSEnEPVMz/dMl4YTKtAF6qw
Cl8YfH95l42u/33EfdMGuVDR8vwTgX7F9dwX/gO6h457iNj0v29AUOCF/zWD
alRAF4KgmtWD5DoMB9yF0M3kD2A4sAa6cI0a6MI1agO6e/kDGA6sTejm9mE4
sAa6cI3agO5ubh+GA2ugC9eoDeimc/swHFgb0H2Z3S/Z8z9faVAK9c0fWfJb
p8zujLrKG66EF8o5Q2nemLIGBqzZldRsZEBTbKlQycrMEMsYmkpV8BhLd50v
5W+JzGz45z+bILt3n9kriRhZmEjwgHycY//vVn2bpm42X7Lnw4S9m1EaD3UR
+rqHjPnuHK08He1uUPGxeXWGgDuxQOJUPMJQkYsEDN+SRcqYFV+t8ElY29hi
sfkCXX1xY9ri56et+Ac53TZN3Uy+ZM9R9jpHaPw4HKJYiq3RTnuWJlQ+RTcU
fuxXzktYcqIvRIKw7CB7jnQ3uHrS8lBfWK53jR51YDZyY4s0Xhfo0jjJwEjm
Vcw0keD56pGXWHKJ93Hk64+yoW9VRqBrn02dofBb6C7vb8VXtM+1wr6PiTJ+
fDVlA7o7mXzJluztMN44ljsSQkeCBh67XLBMu5wnhPrmZCsRy1YsU/RkrWgV
WyRsW65WBU2BIQDQWKJLYvHLlyxKQnYkWiKw4suyhMfLfFAnRQnvo8cswZpa
L1Bl95dnU6/m+WzLbiJ2WRU/qm66y9LK+AnWjo8DXTX0xKKLUo0oq0vh7Sm3
0xi6qhszH+mWeHTwLKu070shMyp0dNVk4wkcLVuUNze6glIV27RrpOkJvlVH
oat/F+wviKXIB7oOdLczuZI9F26h8OS2xSRki2x+3p7zyY8IdD3ljrTEbYpu
VF/k6EbEY5RQ2hJOOMvlouG0jIrxpB1HZlLbyRinlyyy8UsY0KsWxwW6Womn
nPeU6Dr7+1bxtuylwqqPnq8W+SGZxJZuuus69in0caHLeRNYUopc7HGXjS7P
FGSqr4ZWztj2/75oTvG7rpMiTqxNiMJsKumDLi+3KdXQ1cvtBN+qstAdT7Lz
eyhlbWOJaqN13Dag+9dermQ/ofDcGGbxMB28Lf0JtS7VPSjzB2/SX+qzvuW2
Ez+xf3dwv2vYvoeIEsdbvH18/Pwh/SnPkfhFfHBgYPBhiq0zkNg6SxAafyq3
rPhzWaIkap/GZGZOPWrlBarEG7VM1Uc/mFp07oqPIExbyban2RVGt7r2J9/s
1B+WRLFUO2g/5qqiPXfPRfKptQHdP3ezpboheCrjUxTrFzMUwunUSVT9z/zW
2++NTUxupTMGP0iuVRBdGK6ICbofNl810wt04QCaoEsgNNNrQHdrNwvDVTFH
V9G7mc54DXThAFqha6DXhG46C8NVsY6uoDc2ufkyo9uAru+UhuETsAtdog+a
r/4em9x4uacMdOEA2ouul16gCwfQvuge/P2PTq8BXRiult94811fLNPpTOOl
T375dYxwWwhdCKqi6uvPFtra2Nj6+PIXU9PxkzwPBBUpA7pEy8urhN4TOwwE
FS8d3Wx2nwcEV91VOhoEmaTQJdyeOVMfHb1H4sstX45Ex6p6Lgg6Qhxdzi25
1p4/f/GQ3RN4AEGBFUFXcUseP/v8m/v3p3mAwQsFWeQqq7glIsG5c++TYGEh
eeFCU1WPBkGlicxbwi0JGhubq30WCCpBa2spMnhb27oePXpS7bNAEARBEFSr
+hcP964w
    "], {{0, 42.75}, {174.75, 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->96],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{249.75, Automatic},
  ImageSizeRaw->{174.75, 42.75},
  PlotRange->{{0, 174.75}, {
    0, 42.75}}]], \
"Input",ExpressionUUID->"d843b27b-a551-416d-ae5c-86e4595b5b22"]], "Text",
 CellChangeTimes->{{3.8311836594429636`*^9, 3.8311836885550675`*^9}, {
  3.8311837479232707`*^9, 3.831183796096384*^9}},
 CellID->138147941,ExpressionUUID->"a39966c0-4ffb-411c-80b4-aec519d0b058"],

Cell["\<\
These are known issues with the documentation build process in Wolfram \
Workbench, which has not kept up with the functionality in Mathematica 12.x \
and it's improvements to the Wolfram Language Documentation Center.  Wolfram \
Research is actively working on their documentation tools and it is hoped \
that these issues will be addressed in the near future, either with an update \
to Wolfram Workbench, or an alternative method for building custom \
package/paclet documentation that provides documentation formatting and \
functionality that is consistent with the current Mathematica Documentation \
Center.\
\>", "Text",
 CellChangeTimes->{{3.8311818671220884`*^9, 3.8311818671230884`*^9}, {
  3.8311843055309486`*^9, 3.8311844005457773`*^9}, {3.831184971402465*^9, 
  3.8311851871214385`*^9}},
 CellID->288266649,ExpressionUUID->"f7dd22ba-490b-496e-9fac-58f9b1f11099"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Workarounds", "Subsection",
 CellChangeTimes->{{3.831184418709195*^9, 3.831184421187566*^9}},
 CellID->247919585,ExpressionUUID->"3983ff03-3be9-4c20-ad2a-7cb0656a000b"],

Cell["\<\
Until this functionality is fixed, users of RefpropLink have three options \
available,\
\>", "Text",
 CellChangeTimes->{{3.831181867208804*^9, 3.831181867209773*^9}, {
  3.831184425561865*^9, 3.8311844712337036`*^9}, {3.831185229988784*^9, 
  3.8311852299897757`*^9}, {3.83118540403325*^9, 3.831185419209656*^9}},
 CellID->512509361,ExpressionUUID->"ca14a5cc-136d-4181-ad70-1ced02123860"],

Cell["\<\
1. Open Help from the main menu, search for RefpropLink, and navigate through \
the Guide page\
\>", "Text",
 CellChangeTimes->{{3.831181867208804*^9, 3.831181867209773*^9}, {
  3.831184425561865*^9, 3.8311844712337036`*^9}, {3.831185231657316*^9, 
  3.8311852585852895`*^9}},
 CellID->468518309,ExpressionUUID->"a157348d-8813-49bf-8257-9091c0d24bfb"],

Cell["\<\
2. Open Help from the main menu and search for the RefpropLink function \
directly.\
\>", "Text",
 CellChangeTimes->{{3.8311818675357647`*^9, 3.831181867536762*^9}, {
  3.831184478649867*^9, 3.8311845758020077`*^9}, {3.8311852685606155`*^9, 
  3.8311852686324425`*^9}},
 CellID->618307694,ExpressionUUID->"b0d8add0-a723-4b29-9909-d3333a390774"],

Cell[TextData[{
 "3. Query the usage statement for the function of interest, evaluating ",
 StyleBox["?",
  FontWeight->"Bold"],
 StyleBox["FunctionName",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.8311818678078165`*^9, 3.83118186780879*^9}, {
  3.8311839464518003`*^9, 3.8311839464528017`*^9}, {3.8311845795330276`*^9, 
  3.8311846117378874`*^9}, {3.8311846760728073`*^9, 3.8311847025385857`*^9}, {
  3.831185272536972*^9, 3.831185272610773*^9}},
 CellID->106327427,ExpressionUUID->"5cb3006d-6d77-47d9-b222-b6e1eea2b568"],

Cell[CellGroupData[{

Cell[TextData[{
 "Function query using \"",
 StyleBox["?",
  FontWeight->"Bold"],
 "\""
}], "MathCaption",
 CellChangeTimes->{{3.8311846312925835`*^9, 3.8311846505500793`*^9}},
 CellID->3976962,ExpressionUUID->"cc42f0a7-508d-4ba9-b4e1-c1da780b0834"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "RefProp"}]], "Input",
 CellChangeTimes->{{3.831184657241177*^9, 3.831184664442913*^9}, {
  3.8311847369485474`*^9, 3.8311847374931045`*^9}},
 CellLabel->"In[10]:=",
 CellID->512118196,ExpressionUUID->"8d8d34fd-0d65-4551-8207-ea442693e558"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox[
           PaneBox[
            TooltipBox[
             ButtonBox[
              PaneSelectorBox[{False->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIcon"],
                ImageSizeCache->{13., {4., 9.}}], True->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIconHot"],
                ImageSizeCache->{13., {4., 9.}}]}, Dynamic[
                CurrentValue["MouseOver"]]],
              Appearance->None,
              BaseStyle->"Link",
              ButtonData->"paclet:RefpropLink/ref/RefProp",
              ButtonNote->"paclet:RefpropLink/ref/RefProp"],
             "\"paclet:RefpropLink/ref/RefProp\""],
            FrameMargins->{{0, 4}, {0, 2}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"RefProp[hFld,hIn,hOut,a,b,z] is a multi-purpose \
function which takes up to two inputs, a & b, as designated by the string, \
hIn. Fluid properties, specified in hOut, are calculated for the fluid \
specified in hFld. If hFld is a mixture, the molar composition is passed in \
z.\\nRefProp[hFld,hIn,hOut,a,b] is the same as above, but for pure fluids z \
can be omitted.\\nRefProp[hIn,hOut,a,b,z] is the same as above, but \
subsequent calls for the same fluid/mixture can omit the fluid string, \
hFld.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False, False, False, False, 
                False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Documentation\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Documentation\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Documentation", "Tooltip"]& ], 
                   TemplateBox[{
                    
                    TemplateBox[{
                    "\"Local \[RightGuillemet]\"", 
                    "paclet:RefpropLink/ref/RefProp", 
                    "paclet:RefpropLink/ref/RefProp", "Link", {
                    RGBColor[0.9686274509803922, 0.4666666666666667, 0.]}, 
                    BaseStyle -> {
                    RGBColor[0.0784313725490196, 0.1568627450980392, 0.6]}}, 
                    "HyperlinkTemplate"]},
                    "RowDefault"]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Definitions\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Definitions", "Tooltip"]& ], GridBox[{
                    {
                    RowBox[{
                    RowBox[{"RefProp", "[", 
                    RowBox[{
                    RowBox[{
                    "RefpropLink`Private`hFld_String", ":", "\<\" \"\>"}], 
                    ",", "RefpropLink`Private`hIn_String", ",", 
                    "RefpropLink`Private`hOut_String", ",", 
                    "RefpropLink`Private`a_", ",", "RefpropLink`Private`b_", 
                    ",", 
                    RowBox[{"RefpropLink`Private`z_List", ":", 
                    RowBox[{"{", "1.`", "}"}]}], ",", 
                    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    "RefpropLink`Private`loadREFPROPdll", ",", 
                    "RefpropLink`Private`iUnits2", ",", 
                    "RefpropLink`Private`z20", ",", "RefpropLink`Private`a2", 
                    ",", "RefpropLink`Private`b2", ",", 
                    "RefpropLink`Private`zL", ",", "RefpropLink`Private`zOut",
                     ",", "RefpropLink`Private`xL", ",", 
                    "RefpropLink`Private`x", ",", "RefpropLink`Private`yL", 
                    ",", "RefpropLink`Private`y", ",", 
                    "RefpropLink`Private`outL", ",", 
                    "RefpropLink`Private`output", ",", 
                    "RefpropLink`Private`suFlag", ",", 
                    RowBox[{"RefpropLink`Private`iUCode", "=", "0"}], ",", 
                    RowBox[{"RefpropLink`Private`q", "=", "0.`"}], ",", 
                    RowBox[{"RefpropLink`Private`ierr", "=", "0"}], ",", 
                    "RefpropLink`Private`nOut", ",", 
                    "RefpropLink`Private`hList", ",", "RefpropLink`Private`f",
                     ",", "RefpropLink`Private`resList", ",", 
                    "RefpropLink`Private`ixFlag", ",", 
                    "RefpropLink`Private`inc"}], "}"}], ",", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"RefpropLink`Private`$vMajor", "<", "10"}], ",", 
                    RowBox[{
                    RowBox[{"Message", "[", 
                    StyleBox[
                    RowBox[{"RefProp", "::", "notimp"}], "MessageName"], 
                    "]"}], ";", 
                    RowBox[{
                    "Return", "[", "\<\"Not Implemented\"\>", "]"}]}]}], 
                    "]"}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"StringMatchQ", "[", 
                    RowBox[{
                    "RefpropLink`Private`hIn", ",", 
                    "RefpropLink`Private`$hFlags", ",", 
                    RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}]}], "&&", 
                    RowBox[{"!", 
                    RowBox[{"StringMatchQ", "[", 
                    RowBox[{
                    "RefpropLink`Private`hOut", ",", 
                    "RefpropLink`Private`$hOutSpec", ",", 
                    RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}]}]}], 
                    ",", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"StringMatchQ", "[", 
                    RowBox[{
                    "RefpropLink`Private`hIn", ",", 
                    "RefpropLink`Private`$hInSpec", ",", 
                    RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}]}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"mixedUnits", "[", 
                    RowBox[{
                    "RefpropLink`Private`a", ",", "RefpropLink`Private`b"}], 
                    "]"}], ",", 
                    RowBox[{"RefpropLink`Private`ierr", "=", "1"}]}], "]"}]}],
                     "]"}], ";", 
                    RowBox[{"RefpropLink`Private`suFlag", "=", 
                    RowBox[{"!", 
                    RowBox[{
                    "QuantityQ", "[", "RefpropLink`Private`a", "]"}]}]}]}], 
                    ",", 
                    RowBox[{"RefpropLink`Private`suFlag", "=", 
                    RowBox[{
                    "OptionValue", "[", "RefpropLink`Private`SuppressUnits", 
                    "]"}]}]}], "]"}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"RefpropLink`Private`ierr", ">", "0"}], ",", 
                    RowBox[{
                    RowBox[{"Message", "[", 
                    StyleBox[
                    RowBox[{"RefProp", "::", "mixed"}], "MessageName"], "]"}],
                     ";", 
                    RowBox[{"Return", "[", "\<\"Input Error\"\>", "]"}]}]}], 
                    "]"}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{"RefpropLink`Private`suFlag", ",", 
                    RowBox[{"RefpropLink`Private`iUnits2", "=", 
                    RowBox[{
                    "OptionValue", "[", "RefpropLink`Private`iUnits", "]"}]}],
                     ",", 
                    RowBox[{
                    "RefpropLink`Private`iUnits2", "=", 
                    "RefpropLink`Private`$iUnits"}]}], "]"}], ";", 
                    RowBox[{"RefpropLink`Private`z20", "=", 
                    RowBox[{"MakeNETObject", "[", 
                    RowBox[{"PadRight", "[", 
                    RowBox[{
                    RowBox[{"Take", "[", 
                    RowBox[{"RefpropLink`Private`z", ",", 
                    RowBox[{
                    "UpTo", "[", "RefpropLink`Private`$ncmax", "]"}]}], "]"}],
                     ",", "RefpropLink`Private`$ncmax"}], "]"}], "]"}]}], ";", 
                    RowBox[{"Do", "[", 
                    RowBox[{
                    RowBox[{"RefpropLink`Private`$xliq1", "[", 
                    RowBox[{"RefpropLink`Private`i", "=", "0.`"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"RefpropLink`Private`i", ",", "0", ",", 
                    RowBox[{"RefpropLink`Private`$ncmax", "-", "1"}]}], 
                    "}"}]}], "]"}], ";", 
                    RowBox[{"Do", "[", 
                    RowBox[{
                    RowBox[{"RefpropLink`Private`$xvap1", "[", 
                    RowBox[{"RefpropLink`Private`i", "=", "0.`"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"RefpropLink`Private`i", ",", "0", ",", 
                    RowBox[{"RefpropLink`Private`$ncmax", "-", "1"}]}], 
                    "}"}]}], "]"}], ";", 
                    RowBox[{"Do", "[", 
                    RowBox[{
                    RowBox[{"RefpropLink`Private`$Output1", "[", 
                    RowBox[{"RefpropLink`Private`i", "=", "0.`"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"RefpropLink`Private`i", ",", "0", ",", "199"}], 
                    "}"}]}], "]"}], ";", 
                    RowBox[{"RefpropLink`Private`$herr1", "[", 
                    RowBox[{"Clear", "[", "]"}], "]"}], ";", 
                    RowBox[{"RefpropLink`Private`$hUnits1", "[", 
                    RowBox[{"Clear", "[", "]"}], "]"}], ";", 
                    RowBox[{"RefpropLink`Private`ixFlag", "=", 
                    RowBox[{"Min", "[", 
                    RowBox[{
                    RowBox[{"Length", "[", "RefpropLink`Private`z", "]"}], 
                    ",", "2"}], "]"}]}], ";", 
                    RowBox[{"RefpropLink`Private`a2", "=", 
                    RowBox[{"rpUnits", "[", "RefpropLink`Private`a", "]"}]}], 
                    ";", 
                    RowBox[{"RefpropLink`Private`b2", "=", 
                    RowBox[{"rpUnits", "[", "RefpropLink`Private`b", "]"}]}], 
                    ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    "RefpropLink`Private`hIn", "\[Equal]", "\<\"SETREF\"\>"}],
                     "&&", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"RefpropLink`Private`a2", "\[NotEqual]", "1"}], "||", 
                    RowBox[{"RefpropLink`Private`a2", "\[NotEqual]", "2"}]}], 
                    ")"}]}], ",", 
                    RowBox[{
                    "RefpropLink`Private`a2", "=", 
                    "RefpropLink`Private`ixFlag"}]}], "]"}], ";", 
                    RowBox[{"RefpropLink`Private`loadREFPROPdll", "=", 
                    RowBox[{"DefineDLLFunction", "[", 
                    
                    RowBox[{"\<\"REFPROPdll\"\>", ",", 
                    "RefpropLink`Private`$dllPath", ",", "\<\"void\"\>", ",", 
                    RowBox[{"{", 
                    
                    RowBox[{"\<\"char*\"\>", ",", "\<\"char*\"\>", 
                    ",", "\<\"char*\"\>", ",", "\<\"long*\"\>", 
                    ",", "\<\"long*\"\>", ",", "\<\"long*\"\>", 
                    ",", "\<\"double*\"\>", ",", "\<\"double*\"\>", 
                    ",", "\<\"double[]\"\>", ",", "\<\"double[]\"\>", 
                    ",", "\<\"System.Text.StringBuilder\"\>", 
                    ",", "\<\"long*\"\>", ",", "\<\"double[]\"\>", 
                    ",", "\<\"double[]\"\>", ",", "\<\"double[]\"\>", 
                    ",", "\<\"double*\"\>", ",", "\<\"long*\"\>", 
                    ",", "\<\"System.Text.StringBuilder\"\>", 
                    ",", "\<\"long\"\>", ",", "\<\"long\"\>", 
                    ",", "\<\"long\"\>", ",", "\<\"long\"\>", 
                    ",", "\<\"long\"\>"}], "}"}]}], "]"}]}], ";", 
                    RowBox[{"RefpropLink`Private`loadREFPROPdll", "[", 
                    RowBox[{
                    "RefpropLink`Private`hFld", ",", 
                    "RefpropLink`Private`hIn", ",", 
                    "RefpropLink`Private`hOut", ",", 
                    "RefpropLink`Private`iUnits2", ",", 
                    RowBox[{
                    "OptionValue", "[", "RefpropLink`Private`iMass", "]"}], 
                    ",", 
                    RowBox[{
                    "OptionValue", "[", "RefpropLink`Private`iFlag", "]"}], 
                    ",", "RefpropLink`Private`a2", ",", 
                    "RefpropLink`Private`b2", ",", "RefpropLink`Private`z20", 
                    ",", "RefpropLink`Private`$Output1", ",", 
                    "RefpropLink`Private`$hUnits1", ",", 
                    "RefpropLink`Private`iUCode", ",", 
                    "RefpropLink`Private`$xliq1", ",", 
                    "RefpropLink`Private`$xvap1", ",", 
                    "RefpropLink`Private`$x3", ",", "RefpropLink`Private`q", 
                    ",", "RefpropLink`Private`ierr", ",", 
                    "RefpropLink`Private`$herr1", ",", 
                    "RefpropLink`Private`$componentstringlength", ",", 
                    "RefpropLink`Private`$refpropcharlength", ",", 
                    "RefpropLink`Private`$refpropcharlength", ",", 
                    "RefpropLink`Private`$refpropcharlength", ",", 
                    "RefpropLink`Private`$errormessagelength"}], "]"}], ";", 
                    RowBox[{"RefpropLink`Private`zL", "=", 
                    RowBox[{
                    "NETObjectToExpression", "[", "RefpropLink`Private`z20", 
                    "]"}]}], ";", 
                    RowBox[{"RefpropLink`Private`outL", "=", 
                    RowBox[{
                    "NETObjectToExpression", "[", 
                    "RefpropLink`Private`$Output1", "]"}]}], ";", 
                    RowBox[{"RefpropLink`Private`xL", "=", 
                    RowBox[{
                    "NETObjectToExpression", "[", 
                    "RefpropLink`Private`$xliq1", "]"}]}], ";", 
                    RowBox[{"RefpropLink`Private`yL", "=", 
                    RowBox[{
                    "NETObjectToExpression", "[", 
                    "RefpropLink`Private`$xvap1", "]"}]}], ";", 
                    RowBox[{
                    "ReleaseNETObject", "[", "RefpropLink`Private`z20", "]"}],
                     ";", 
                    RowBox[{
                    "ReleaseNETObject", "[", 
                    "RefpropLink`Private`loadREFPROPdll", "]"}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"RefpropLink`Private`ierr", ">", "0"}], ",", 
                    RowBox[{
                    RowBox[{"Message", "[", 
                    RowBox[{
                    StyleBox[
                    RowBox[{"RefProp", "::", "refprop"}], "MessageName"], ",", 
                    RowBox[{"StringTrim", "[", 
                    RowBox[{"RefpropLink`Private`$herr1", "[", 
                    RowBox[{"ToString", "[", "]"}], "]"}], "]"}]}], "]"}], 
                    ";", 
                    RowBox[{"Return", "[", 
                    RowBox[{"{", 
                    
                    RowBox[{"\<\"ierr\"\>", "\[Rule]", 
                    "RefpropLink`Private`ierr"}], "}"}], "]"}]}]}], "]"}], 
                    ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"StringMatchQ", "[", 
                    RowBox[{"RefpropLink`Private`hIn", ",", 
                    RowBox[{"{", "\<\"SATSPLN\"\>", "}"}], ",", 
                    RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}], "||", 
                    RowBox[{
                    RowBox[{
                    "OptionValue", "[", "RefpropLink`Private`iFlag", "]"}], 
                    "\[Equal]", "1"}]}], ",", 
                    RowBox[{
                    RowBox[{"Message", "[", 
                    StyleBox[
                    RowBox[{"RefProp", "::", "splnok"}], "MessageName"], 
                    "]"}], ";"}]}], "]"}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"StringMatchQ", "[", 
                    RowBox[{
                    "RefpropLink`Private`hIn", ",", 
                    "RefpropLink`Private`$hNoOut", ",", 
                    RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}], "&&", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    "RefpropLink`Private`hFld", "\[Equal]", "\<\" \"\>"}], "||", 
                    RowBox[{"RefpropLink`Private`$nc", "\[Equal]", "1"}]}], 
                    ")"}]}], ",", 
                    RowBox[{
                    RowBox[{"Switch", "[", 
                    RowBox[{
                    RowBox[{
                    "ToUpperCase", "[", "RefpropLink`Private`hIn", "]"}], 
                    ",", "\<\"SATSPLN\"\>", ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    "RefpropLink`Private`hFld", "\[Equal]", "\<\" \"\>"}], 
                    ",", 
                    RowBox[{"Return", "[", "]"}]}], "]"}], 
                    ",", "\<\"SETREF\"\>", ",", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"RefpropLink`Private`a2", "\[Equal]", "1"}], ",", 
                    RowBox[{"Message", "[", 
                    RowBox[{
                    StyleBox[
                    RowBox[{"RefProp", "::", "PurSet"}], "MessageName"], ",", 
                    "RefpropLink`Private`hOut"}], "]"}], ",", 
                    RowBox[{"Message", "[", 
                    RowBox[{
                    StyleBox[
                    RowBox[{"RefProp", "::", "MixSet"}], "MessageName"], ",", 
                    "RefpropLink`Private`hOut"}], "]"}]}], "]"}], ";", 
                    RowBox[{"Return", "[", "]"}]}], ",", "\<\"SETREFOFF\"\>", 
                    ",", 
                    RowBox[{
                    RowBox[{"Message", "[", 
                    StyleBox[
                    RowBox[{"RefProp", "::", "refreset"}], "MessageName"], 
                    "]"}], ";", 
                    RowBox[{"Return", "[", "]"}]}], ",", "_", ",", 
                    RowBox[{
                    RowBox[{"Return", "[", "]"}], ";"}]}], "]"}], ";"}]}], 
                    "]"}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"StringMatchQ", "[", 
                    RowBox[{
                    "RefpropLink`Private`hOut", ",", 
                    "RefpropLink`Private`$hOutStr", ",", 
                    RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    "ToUpperCase", "[", "RefpropLink`Private`hOut", "]"}], 
                    "\[Equal]", "\<\"FDIR\"\>"}], ",", 
                    RowBox[{"Return", "[", 
                    RowBox[{"StringTrim", "[", 
                    RowBox[{"RefpropLink`Private`$hUnits1", "[", 
                    RowBox[{"ToString", "[", "]"}], "]"}], "]"}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    "ToUpperCase", "[", "RefpropLink`Private`hOut", "]"}], 
                    "\[Equal]", "\<\"NCOMP\"\>"}], ",", 
                    RowBox[{"Return", "[", 
                    RowBox[{"{", 
                    
                    RowBox[{"\<\"NCOMP\"\>", "\[Rule]", 
                    "RefpropLink`Private`iUCode"}], "}"}], "]"}], ",", 
                    RowBox[{"Return", "[", 
                    RowBox[{"StringTrim", "[", 
                    RowBox[{"RefpropLink`Private`$hUnits1", "[", 
                    RowBox[{"ToString", "[", "]"}], "]"}], "]"}], "]"}]}], 
                    "]"}]}], "]"}]}], "]"}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    "ToUpperCase", "[", "RefpropLink`Private`hOut", "]"}], 
                    "\[Equal]", "\<\"FIJMIX\"\>"}], ",", 
                    RowBox[{"Message", "[", 
                    RowBox[{
                    StyleBox[
                    RowBox[{"RefProp", "::", "fijmix"}], "MessageName"], ",", 
                    RowBox[{"StringTrim", "[", 
                    RowBox[{"RefpropLink`Private`$hUnits1", "[", 
                    RowBox[{"ToString", "[", "]"}], "]"}], "]"}]}], "]"}]}], 
                    "]"}], ";", 
                    RowBox[{"RefpropLink`Private`zOut", "=", 
                    RowBox[{"Take", "[", 
                    RowBox[{"RefpropLink`Private`zL", ",", 
                    RowBox[{
                    RowBox[{"Length", "[", "RefpropLink`Private`zL", "]"}], 
                    "-", 
                    RowBox[{"LengthWhile", "[", 
                    RowBox[{
                    RowBox[{"Reverse", "[", "RefpropLink`Private`zL", "]"}], 
                    ",", 
                    RowBox[{
                    RowBox[{"#1", "\[Equal]", "0"}], "&"}]}], "]"}]}]}], 
                    "]"}]}], ";", 
                    RowBox[{"RefpropLink`Private`output", "=", 
                    RowBox[{"Take", "[", 
                    RowBox[{"RefpropLink`Private`outL", ",", 
                    RowBox[{
                    RowBox[{"Length", "[", "RefpropLink`Private`outL", "]"}], 
                    "-", 
                    RowBox[{"LengthWhile", "[", 
                    RowBox[{
                    RowBox[{"Reverse", "[", "RefpropLink`Private`outL", "]"}],
                     ",", 
                    RowBox[{
                    RowBox[{"#1", "\[Equal]", "0"}], "&"}]}], "]"}]}]}], 
                    "]"}]}], ";", 
                    RowBox[{"RefpropLink`Private`$nc", "=", 
                    RowBox[{
                    "Length", "[", "RefpropLink`Private`zOut", "]"}]}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    "OptionValue", "[", "RefpropLink`Private`SatComp", "]"}], 
                    ",", 
                    RowBox[{
                    RowBox[{"RefpropLink`Private`x", "=", 
                    RowBox[{"Take", "[", 
                    RowBox[{"RefpropLink`Private`xL", ",", 
                    RowBox[{
                    RowBox[{"Length", "[", "RefpropLink`Private`xL", "]"}], 
                    "-", 
                    RowBox[{"LengthWhile", "[", 
                    RowBox[{
                    RowBox[{"Reverse", "[", "RefpropLink`Private`xL", "]"}], 
                    ",", 
                    RowBox[{
                    RowBox[{"#1", "\[Equal]", "0"}], "&"}]}], "]"}]}]}], 
                    "]"}]}], ";", 
                    RowBox[{"RefpropLink`Private`y", "=", 
                    RowBox[{"Take", "[", 
                    RowBox[{"RefpropLink`Private`yL", ",", 
                    RowBox[{
                    RowBox[{"Length", "[", "RefpropLink`Private`yL", "]"}], 
                    "-", 
                    RowBox[{"LengthWhile", "[", 
                    RowBox[{
                    RowBox[{"Reverse", "[", "RefpropLink`Private`yL", "]"}], 
                    ",", 
                    RowBox[{
                    RowBox[{"#1", "\[Equal]", "0"}], "&"}]}], "]"}]}]}], 
                    "]"}]}], ";"}]}], "]"}], ";", 
                    RowBox[{"RefpropLink`Private`hList", "=", 
                    RowBox[{"StringSplit", "[", 
                    RowBox[{"RefpropLink`Private`hOut", ",", 
                    RowBox[{"{", 
                    
                    RowBox[{"\<\" \"\>", ",", "\<\",\"\>", ",", "\<\";\"\>", 
                    ",", "\<\"|\"\>"}], "}"}]}], "]"}]}], ";", 
                    RowBox[{"RefpropLink`Private`nOut", "=", 
                    RowBox[{
                    "Length", "[", "RefpropLink`Private`hList", "]"}]}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"StringContainsQ", "[", 
                    RowBox[{
                    RowBox[{
                    "ToUpperCase", "[", "RefpropLink`Private`hOut", "]"}], 
                    ",", "RefpropLink`Private`$hArrays"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"For", "[", 
                    RowBox[{
                    RowBox[{"RefpropLink`Private`i", "=", "1"}], ",", 
                    RowBox[{
                    "RefpropLink`Private`i", "\[LessEqual]", 
                    "RefpropLink`Private`nOut"}], ",", 
                    RowBox[{"RefpropLink`Private`i", "++"}], ",", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Length", "[", 
                    RowBox[{"Position", "[", 
                    RowBox[{"RefpropLink`Private`$hArrays", ",", 
                    RowBox[{"ToUpperCase", "[", 
                    RowBox[{
                    "RefpropLink`Private`hList", "\[LeftDoubleBracket]", 
                    "RefpropLink`Private`i", "\[RightDoubleBracket]"}], 
                    "]"}]}], "]"}], "]"}], ">", "0"}], ",", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"ToUpperCase", "[", 
                    RowBox[{
                    "RefpropLink`Private`hList", "\[LeftDoubleBracket]", 
                    "RefpropLink`Private`i", "\[RightDoubleBracket]"}], "]"}],
                     "\[Equal]", "\<\"FIJMIX\"\>"}], ",", 
                    RowBox[{"RefpropLink`Private`inc", "=", "6"}], ",", 
                    RowBox[{"RefpropLink`Private`inc", "=", 
                    "RefpropLink`Private`$nc"}]}], "]"}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"RefpropLink`Private`inc", ">", "1"}], ",", 
                    RowBox[{
                    RowBox[{"RefpropLink`Private`output", "=", 
                    RowBox[{"ReplacePart", "[", 
                    RowBox[{"RefpropLink`Private`output", ",", 
                    RowBox[{"RefpropLink`Private`i", "\[Rule]", 
                    RowBox[{"Take", "[", 
                    RowBox[{"RefpropLink`Private`output", ",", 
                    RowBox[{"{", 
                    RowBox[{"RefpropLink`Private`i", ",", 
                    RowBox[{
                    "RefpropLink`Private`i", "+", "RefpropLink`Private`inc", 
                    "-", "1"}]}], "}"}]}], "]"}]}]}], "]"}]}], ";", 
                    RowBox[{"RefpropLink`Private`output", "=", 
                    RowBox[{"Drop", "[", 
                    RowBox[{"RefpropLink`Private`output", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"RefpropLink`Private`i", "+", "1"}], ",", 
                    RowBox[{
                    "RefpropLink`Private`i", "+", "RefpropLink`Private`inc", 
                    "-", "1"}]}], "}"}]}], "]"}]}]}]}], "]"}], ";"}]}], "]"}],
                     ";"}]}], "]"}], ";"}]}], "]"}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{"RefpropLink`Private`suFlag", ",", 
                    RowBox[{
                    RowBox[{
                    "RefpropLink`Private`f", "[", "RefpropLink`Private`i_", 
                    "]"}], ":=", 
                    RowBox[{
                    RowBox[{
                    "RefpropLink`Private`hList", "\[LeftDoubleBracket]", 
                    "RefpropLink`Private`i", "\[RightDoubleBracket]"}], 
                    "\[Rule]", 
                    RowBox[{
                    "RefpropLink`Private`output", "\[LeftDoubleBracket]", 
                    "RefpropLink`Private`i", "\[RightDoubleBracket]"}]}]}], 
                    ",", 
                    RowBox[{
                    RowBox[{
                    "RefpropLink`Private`f", "[", "RefpropLink`Private`i_", 
                    "]"}], ":=", 
                    RowBox[{
                    RowBox[{
                    "RefpropLink`Private`hList", "\[LeftDoubleBracket]", 
                    "RefpropLink`Private`i", "\[RightDoubleBracket]"}], 
                    "\[Rule]", 
                    RowBox[{"rpUnits", "[", 
                    RowBox[{
                    RowBox[{
                    "RefpropLink`Private`output", "\[LeftDoubleBracket]", 
                    "RefpropLink`Private`i", "\[RightDoubleBracket]"}], ",", 
                    RowBox[{
                    "RefpropLink`Private`hList", "\[LeftDoubleBracket]", 
                    "RefpropLink`Private`i", "\[RightDoubleBracket]"}]}], 
                    "]"}]}]}]}], "]"}], ";", 
                    RowBox[{"RefpropLink`Private`resList", "=", 
                    RowBox[{"Array", "[", 
                    RowBox[{
                    "RefpropLink`Private`f", ",", 
                    "RefpropLink`Private`nOut"}], "]"}]}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    "RefpropLink`Private`hFld", "\[NotEqual]", "\<\" \"\>"}], 
                    "&&", 
                    RowBox[{"RefpropLink`Private`$nc", ">", "1"}]}], ",", 
                    RowBox[{"RefpropLink`Private`resList", "=", 
                    RowBox[{"Append", "[", 
                    RowBox[{"RefpropLink`Private`resList", ",", 
                    
                    RowBox[{"\<\"z\"\>", "\[Rule]", 
                    "RefpropLink`Private`zOut"}]}], "]"}]}]}], "]"}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    "OptionValue", "[", "RefpropLink`Private`SatComp", "]"}], 
                    ",", 
                    RowBox[{"RefpropLink`Private`resList", "=", 
                    RowBox[{"Join", "[", 
                    RowBox[{"RefpropLink`Private`resList", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"\<\"x\"\>", "\[Rule]", "RefpropLink`Private`x"}],
                     ",", 
                    
                    RowBox[{"\<\"y\"\>", "\[Rule]", 
                    "RefpropLink`Private`y"}]}], "}"}]}], "]"}]}]}], "]"}], 
                    ";", 
                    RowBox[{
                    "Return", "[", "RefpropLink`Private`resList", "]"}]}]}], 
                    "]"}]}]}
                    },
                    DefaultBaseStyle->"Column",
                    GridBoxAlignment->{"Columns" -> {{Left}}},
                    
                    GridBoxItemSize->{
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                  {
                   PaneSelectorBox[{True->
                    ButtonBox[
                    PaneSelectorBox[{False->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "DownPointerOpener"]]},
                    "RowWithSeparators"], True->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "DownPointerOpenerHot"]]},
                    "RowWithSeparators"]}, Dynamic[
                    CurrentValue["MouseOver"]],
                    FrameMargins->0,
                    ImageSize->Automatic],
                    Appearance->None,
                    BaseStyle->None,
                    
                    ButtonFunction:>(Part[System`InformationDump`open$$, 9] = 
                    False),
                    Evaluator->Automatic,
                    FrameMargins->0,
                    ImageMargins->0,
                    Method->"Preemptive"], False->
                    ButtonBox[
                    PaneSelectorBox[{False->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "RightPointerOpener"]]},
                    "RowWithSeparators"], True->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "RightPointerOpenerHot"]]},
                    "RowWithSeparators"]}, Dynamic[
                    CurrentValue["MouseOver"]],
                    FrameMargins->0,
                    ImageSize->Automatic],
                    Appearance->None,
                    BaseStyle->None,
                    
                    ButtonFunction:>(Part[System`InformationDump`open$$, 9] = 
                    True),
                    Evaluator->Automatic,
                    FrameMargins->0,
                    ImageMargins->0,
                    Method->"Preemptive"]}, Dynamic[
                    FEPrivate`Part[System`InformationDump`open$$, 9]]], 
                   PaneSelectorBox[{True->GridBox[{
                    {
                    RowBox[{"RefpropLink`Private`iUnits", "\[Rule]", "0"}]},
                    {
                    RowBox[{"RefpropLink`Private`iMass", "\[Rule]", "0"}]},
                    {
                    RowBox[{"RefpropLink`Private`iFlag", "\[Rule]", "0"}]},
                    {
                    RowBox[{
                    "RefpropLink`Private`SatComp", "\[Rule]", "False"}]},
                    {
                    RowBox[{
                    "RefpropLink`Private`SuppressUnits", "\[Rule]", "False"}]},
                    {
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[InvisibleSpace]\"", "5", "\" total)\""},
                    "RowDefault"], "InformationRowOpener",
                    StripOnInput->False]}
                    },
                    BaselinePosition->{Baseline, {1, 1}},
                    DefaultBaseStyle->"Column",
                    GridBoxAlignment->{"Columns" -> {{Left}}},
                    
                    GridBoxItemSize->{
                    "Columns" -> {{Automatic}}, "Rows" -> {{1.}}}], False->
                    RowBox[{
                    RowBox[{"RefpropLink`Private`iUnits", "\[Rule]", "0"}], 
                    "\[ThinSpace]", 
                    StyleBox["\<\"\[Ellipsis]\"\>", "InformationRowOpener",
                    StripOnInput->False], "\[ThinSpace]", 
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[InvisibleSpace]\"", "5", "\" total)\""},
                    "RowDefault"], "InformationRowOpener",
                    StripOnInput->False]}]}, Dynamic[
                    FEPrivate`Part[System`InformationDump`open$$, 9]],
                    BaselinePosition->Baseline,
                    ImageSize->Automatic]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Attributes\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Attributes\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Attributes", "Tooltip"]& ], 
                   RowBox[{"{", "Protected", "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"RefpropLink`RefProp\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->6], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"],
               ImageSizeCache->{10., {3., 7.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"],
               ImageSizeCache->{10., {3., 7.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox[
           PaneBox[
            TooltipBox[
             ButtonBox[
              PaneSelectorBox[{False->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIcon"],
                ImageSizeCache->{13., {4., 9.}}], True->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIconHot"],
                ImageSizeCache->{13., {4., 9.}}]}, Dynamic[
                CurrentValue["MouseOver"]]],
              Appearance->None,
              BaseStyle->"Link",
              ButtonData->"paclet:RefpropLink/ref/RefProp",
              ButtonNote->"paclet:RefpropLink/ref/RefProp"],
             "\"paclet:RefpropLink/ref/RefProp\""],
            FrameMargins->{{0, 4}, {0, 2}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"RefProp[hFld,hIn,hOut,a,b,z] is a multi-purpose \
function which takes up to two inputs, a & b, as designated by the string, \
hIn. Fluid properties, specified in hOut, are calculated for the fluid \
specified in hFld. If hFld is a mixture, the molar composition is passed in \
z.\\nRefProp[hFld,hIn,hOut,a,b] is the same as above, but for pure fluids z \
can be omitted.\\nRefProp[hIn,hOut,a,b,z] is the same as above, but \
subsequent calls for the same fluid/mixture can omit the fluid string, \
hFld.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {3., 7.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               ImageSizeCache->{10., {3., 7.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[
   Association[
   "ObjectType" -> "Symbol", "Usage" -> 
    "RefProp[hFld,hIn,hOut,a,b,z] is a multi-purpose function which takes up \
to two inputs, a & b, as designated by the string, hIn. Fluid properties, \
specified in hOut, are calculated for the fluid specified in hFld. If hFld is \
a mixture, the molar composition is passed in z.\nRefProp[hFld,hIn,hOut,a,b] \
is the same as above, but for pure fluids z can be omitted.\n\
RefProp[hIn,hOut,a,b,z] is the same as above, but subsequent calls for the \
same fluid/mixture can omit the fluid string, hFld.", "Documentation" -> 
    Association["Local" -> "paclet:RefpropLink/ref/RefProp"], "OwnValues" -> 
    None, "UpValues" -> None, "DownValues" -> 
    Information`InformationValueForm[
     DownValues, RefpropLink`RefProp, {RefpropLink`RefProp[
         Optional[
          Pattern[RefpropLink`Private`hFld, 
           Blank[String]], " "], 
         Pattern[RefpropLink`Private`hIn, 
          Blank[String]], 
         Pattern[RefpropLink`Private`hOut, 
          Blank[String]], 
         Pattern[RefpropLink`Private`a, 
          Blank[]], 
         Pattern[RefpropLink`Private`b, 
          Blank[]], 
         Optional[
          Pattern[RefpropLink`Private`z, 
           Blank[List]], {1.}], 
         OptionsPattern[]] :> 
       Module[{RefpropLink`Private`loadREFPROPdll, 
          RefpropLink`Private`iUnits2, RefpropLink`Private`z20, 
          RefpropLink`Private`a2, RefpropLink`Private`b2, 
          RefpropLink`Private`zL, RefpropLink`Private`zOut, 
          RefpropLink`Private`xL, RefpropLink`Private`x, 
          RefpropLink`Private`yL, RefpropLink`Private`y, 
          RefpropLink`Private`outL, RefpropLink`Private`output, 
          RefpropLink`Private`suFlag, RefpropLink`Private`iUCode = 0, 
          RefpropLink`Private`q = 0., RefpropLink`Private`ierr = 0, 
          RefpropLink`Private`nOut, RefpropLink`Private`hList, 
          RefpropLink`Private`f, RefpropLink`Private`resList, 
          RefpropLink`Private`ixFlag, RefpropLink`Private`inc}, 
         If[RefpropLink`Private`$vMajor < 10, Message[
             MessageName[RefpropLink`RefProp, "notimp"]]; 
           Return["Not Implemented"]]; If[
           And[
            Not[
             StringMatchQ[
             RefpropLink`Private`hIn, RefpropLink`Private`$hFlags, IgnoreCase -> 
              True]], 
            Not[
             StringMatchQ[
             RefpropLink`Private`hOut, RefpropLink`Private`$hOutSpec, 
              IgnoreCase -> True]]], If[
             Not[
              StringMatchQ[
              RefpropLink`Private`hIn, RefpropLink`Private`$hInSpec, 
               IgnoreCase -> True]], 
             If[
              RefpropLink`RefpropUnits`mixedUnits[
              RefpropLink`Private`a, RefpropLink`Private`b], 
              RefpropLink`Private`ierr = 1]]; RefpropLink`Private`suFlag = Not[
              QuantityQ[RefpropLink`Private`a]], RefpropLink`Private`suFlag = 
           OptionValue[RefpropLink`Private`SuppressUnits]]; 
         If[RefpropLink`Private`ierr > 0, Message[
             MessageName[RefpropLink`RefProp, "mixed"]]; 
           Return["Input Error"]]; 
         If[RefpropLink`Private`suFlag, RefpropLink`Private`iUnits2 = 
           OptionValue[RefpropLink`Private`iUnits], 
           RefpropLink`Private`iUnits2 = RefpropLink`Private`$iUnits]; 
         RefpropLink`Private`z20 = NETLink`MakeNETObject[
            PadRight[
             Take[RefpropLink`Private`z, 
              UpTo[RefpropLink`Private`$ncmax]], RefpropLink`Private`$ncmax]]; 
         Do[
           RefpropLink`Private`$xliq1[RefpropLink`Private`i = 0.], {
           RefpropLink`Private`i, 0, RefpropLink`Private`$ncmax - 1}]; Do[
           RefpropLink`Private`$xvap1[RefpropLink`Private`i = 0.], {
           RefpropLink`Private`i, 0, RefpropLink`Private`$ncmax - 1}]; Do[
           RefpropLink`Private`$Output1[RefpropLink`Private`i = 0.], {
           RefpropLink`Private`i, 0, 199}]; RefpropLink`Private`$herr1[
           Clear[]]; RefpropLink`Private`$hUnits1[
           Clear[]]; RefpropLink`Private`ixFlag = Min[
            Length[RefpropLink`Private`z], 2]; 
         RefpropLink`Private`a2 = 
          RefpropLink`RefpropUnits`rpUnits[RefpropLink`Private`a]; 
         RefpropLink`Private`b2 = 
          RefpropLink`RefpropUnits`rpUnits[RefpropLink`Private`b]; If[
           And[RefpropLink`Private`hIn == "SETREF", 
            Or[RefpropLink`Private`a2 != 1, RefpropLink`Private`a2 != 2]], 
           RefpropLink`Private`a2 = RefpropLink`Private`ixFlag]; 
         RefpropLink`Private`loadREFPROPdll = 
          NETLink`DefineDLLFunction[
           "REFPROPdll", RefpropLink`Private`$dllPath, "void", {
            "char*", "char*", "char*", "long*", "long*", "long*", "double*", 
             "double*", "double[]", "double[]", "System.Text.StringBuilder", 
             "long*", "double[]", "double[]", "double[]", "double*", "long*", 
             "System.Text.StringBuilder", "long", "long", "long", "long", 
             "long"}]; 
         RefpropLink`Private`loadREFPROPdll[
          RefpropLink`Private`hFld, RefpropLink`Private`hIn, 
           RefpropLink`Private`hOut, RefpropLink`Private`iUnits2, 
           OptionValue[RefpropLink`Private`iMass], 
           OptionValue[RefpropLink`Private`iFlag], RefpropLink`Private`a2, 
           RefpropLink`Private`b2, RefpropLink`Private`z20, 
           RefpropLink`Private`$Output1, RefpropLink`Private`$hUnits1, 
           RefpropLink`Private`iUCode, RefpropLink`Private`$xliq1, 
           RefpropLink`Private`$xvap1, RefpropLink`Private`$x3, 
           RefpropLink`Private`q, RefpropLink`Private`ierr, 
           RefpropLink`Private`$herr1, 
           RefpropLink`Private`$componentstringlength, 
           RefpropLink`Private`$refpropcharlength, 
           RefpropLink`Private`$refpropcharlength, 
           RefpropLink`Private`$refpropcharlength, 
           RefpropLink`Private`$errormessagelength]; 
         RefpropLink`Private`zL = 
          NETLink`NETObjectToExpression[RefpropLink`Private`z20]; 
         RefpropLink`Private`outL = 
          NETLink`NETObjectToExpression[RefpropLink`Private`$Output1]; 
         RefpropLink`Private`xL = 
          NETLink`NETObjectToExpression[RefpropLink`Private`$xliq1]; 
         RefpropLink`Private`yL = 
          NETLink`NETObjectToExpression[RefpropLink`Private`$xvap1]; 
         NETLink`ReleaseNETObject[RefpropLink`Private`z20]; 
         NETLink`ReleaseNETObject[RefpropLink`Private`loadREFPROPdll]; 
         If[RefpropLink`Private`ierr > 0, Message[
             MessageName[RefpropLink`RefProp, "refprop"], 
             StringTrim[
              RefpropLink`Private`$herr1[
               ToString[]]]]; Return[{"ierr" -> RefpropLink`Private`ierr}]]; 
         If[
           Or[
            StringMatchQ[
            RefpropLink`Private`hIn, {"SATSPLN"}, IgnoreCase -> True], 
            OptionValue[RefpropLink`Private`iFlag] == 1], Message[
             MessageName[RefpropLink`RefProp, "splnok"]]; Null]; If[
           And[
            StringMatchQ[
            RefpropLink`Private`hIn, RefpropLink`Private`$hNoOut, IgnoreCase -> 
             True], 
            Or[
            RefpropLink`Private`hFld == " ", RefpropLink`Private`$nc == 1]], 
           Switch[
             ToUpperCase[RefpropLink`Private`hIn], "SATSPLN", 
             If[RefpropLink`Private`hFld == " ", 
              Return[]], "SETREF", If[RefpropLink`Private`a2 == 1, 
               Message[
                MessageName[RefpropLink`RefProp, "PurSet"], 
                RefpropLink`Private`hOut], 
               Message[
                MessageName[RefpropLink`RefProp, "MixSet"], 
                RefpropLink`Private`hOut]]; Return[], "SETREFOFF", Message[
               MessageName[RefpropLink`RefProp, "refreset"]]; Return[], 
             Blank[], Return[]; Null]; Null]; If[
           StringMatchQ[
           RefpropLink`Private`hOut, RefpropLink`Private`$hOutStr, IgnoreCase -> 
            True], 
           If[ToUpperCase[RefpropLink`Private`hOut] == "FDIR", 
            Return[
             StringTrim[
              RefpropLink`Private`$hUnits1[
               ToString[]]]], 
            If[ToUpperCase[RefpropLink`Private`hOut] == "NCOMP", 
             Return[{"NCOMP" -> RefpropLink`Private`iUCode}], 
             Return[
              StringTrim[
               RefpropLink`Private`$hUnits1[
                ToString[]]]]]]]; 
         If[ToUpperCase[RefpropLink`Private`hOut] == "FIJMIX", 
           Message[
            MessageName[RefpropLink`RefProp, "fijmix"], 
            StringTrim[
             RefpropLink`Private`$hUnits1[
              ToString[]]]]]; 
         RefpropLink`Private`zOut = 
          Take[RefpropLink`Private`zL, Length[RefpropLink`Private`zL] - 
            LengthWhile[
             Reverse[RefpropLink`Private`zL], # == 0& ]]; 
         RefpropLink`Private`output = 
          Take[RefpropLink`Private`outL, Length[RefpropLink`Private`outL] - 
            LengthWhile[
             Reverse[RefpropLink`Private`outL], # == 0& ]]; 
         RefpropLink`Private`$nc = Length[RefpropLink`Private`zOut]; If[
           OptionValue[RefpropLink`Private`SatComp], 
           RefpropLink`Private`x = 
            Take[RefpropLink`Private`xL, Length[RefpropLink`Private`xL] - 
              LengthWhile[
               Reverse[RefpropLink`Private`xL], # == 0& ]]; 
           RefpropLink`Private`y = 
            Take[RefpropLink`Private`yL, Length[RefpropLink`Private`yL] - 
              LengthWhile[
               Reverse[RefpropLink`Private`yL], # == 0& ]]; Null]; 
         RefpropLink`Private`hList = 
          StringSplit[RefpropLink`Private`hOut, {" ", ",", ";", "|"}]; 
         RefpropLink`Private`nOut = Length[RefpropLink`Private`hList]; If[
           StringContainsQ[
            ToUpperCase[RefpropLink`Private`hOut], 
            RefpropLink`Private`$hArrays], 
           For[RefpropLink`Private`i = 1, RefpropLink`Private`i <= 
             RefpropLink`Private`nOut, 
             Increment[RefpropLink`Private`i], If[Length[
                 Position[RefpropLink`Private`$hArrays, 
                  ToUpperCase[
                   Part[RefpropLink`Private`hList, RefpropLink`Private`i]]]] > 
               0, If[ToUpperCase[
                   Part[RefpropLink`Private`hList, RefpropLink`Private`i]] == 
                 "FIJMIX", RefpropLink`Private`inc = 6, 
                 RefpropLink`Private`inc = RefpropLink`Private`$nc]; 
               If[RefpropLink`Private`inc > 1, 
                 RefpropLink`Private`output = 
                  ReplacePart[
                   RefpropLink`Private`output, RefpropLink`Private`i -> 
                    Take[RefpropLink`Private`output, {
                    RefpropLink`Private`i, RefpropLink`Private`i + 
                    RefpropLink`Private`inc - 1}]]; 
                 RefpropLink`Private`output = 
                  Drop[RefpropLink`Private`output, {
                    RefpropLink`Private`i + 1, RefpropLink`Private`i + 
                    RefpropLink`Private`inc - 1}]]; Null]; Null]; Null]; 
         If[RefpropLink`Private`suFlag, RefpropLink`Private`f[
             Pattern[RefpropLink`Private`i, 
              Blank[]]] := 
           Part[RefpropLink`Private`hList, RefpropLink`Private`i] -> 
            Part[RefpropLink`Private`output, RefpropLink`Private`i], 
           RefpropLink`Private`f[
             Pattern[RefpropLink`Private`i, 
              Blank[]]] := 
           Part[RefpropLink`Private`hList, RefpropLink`Private`i] -> 
            RefpropLink`RefpropUnits`rpUnits[
              Part[RefpropLink`Private`output, RefpropLink`Private`i], 
              Part[RefpropLink`Private`hList, RefpropLink`Private`i]]]; 
         RefpropLink`Private`resList = 
          Array[RefpropLink`Private`f, RefpropLink`Private`nOut]; If[
           And[RefpropLink`Private`hFld != " ", RefpropLink`Private`$nc > 1], 
           RefpropLink`Private`resList = 
           Append[RefpropLink`Private`resList, "z" -> 
             RefpropLink`Private`zOut]]; If[
           OptionValue[RefpropLink`Private`SatComp], 
           RefpropLink`Private`resList = 
           Join[RefpropLink`Private`resList, {
             "x" -> RefpropLink`Private`x, "y" -> RefpropLink`Private`y}]]; 
         Return[RefpropLink`Private`resList]]}], "SubValues" -> None, 
    "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> {
     RefpropLink`Private`iUnits -> 0, RefpropLink`Private`iMass -> 0, 
      RefpropLink`Private`iFlag -> 0, RefpropLink`Private`SatComp -> False, 
      RefpropLink`Private`SuppressUnits -> False}, 
    "Attributes" -> {Protected}, "FullName" -> "RefpropLink`RefProp"], 
   False]]], "Output",
 CellChangeTimes->{{3.831184730701259*^9, 3.8311847386669507`*^9}},
 CellLabel->"Out[10]=",
 CellID->772089751,ExpressionUUID->"0493d4c6-c2d0-4fec-801a-6908b39bfa28"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "This brings up the Usage statements and other information about the \
function in the output results.  In addition, in the top right corner of the \
output window is an information icon that ",
 StyleBox["does",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True}],
 " link to the function's symbol reference page in the Documentation Center."
}], "Text",
 CellChangeTimes->{{3.8311818678078165`*^9, 3.83118186780879*^9}, {
  3.831183947171873*^9, 3.831183964676054*^9}, {3.8311847492576237`*^9, 
  3.831184752529872*^9}, {3.8311847843058777`*^9, 3.8311848556739836`*^9}, {
  3.8311853151858945`*^9, 3.8311853413539014`*^9}},
 CellID->717984292,ExpressionUUID->"71d52275-73e4-45d5-9110-e90f055853df"],

Cell["\<\
Either of these methods will get users to the extended help documentation and \
usage examples on each of the RefpropLink functions.\
\>", "Text",
 CellChangeTimes->{{3.8311818678078165`*^9, 3.83118186780879*^9}, {
  3.831183947171873*^9, 3.8311839649004536`*^9}, {3.831184896650381*^9, 
  3.8311849372896814`*^9}},
 CellID->167377411,ExpressionUUID->"d941b7e7-9c28-4b4a-ae43-84ad8a052ad6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["References", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.8305999282782993`*^9, 3.830599930070475*^9}},
 CellID->776680,ExpressionUUID->"1f287d35-537e-4790-ae12-7b0fe2cf77a4"],

Cell["\<\
1. Eric W. Lemmon, Ian H. Bell, Marcia L. Huber, and Mark O. McLinden, \
REFPROP Documentation, Release 10.0, NIST, May 21, 2018.\
\>", "Text",
 CellChangeTimes->{{3.829459108114297*^9, 3.8294591288957357`*^9}, {
  3.830600083573577*^9, 3.8306001415325193`*^9}},
 CellID->442085681,ExpressionUUID->"efba1679-0f5f-474a-99ff-8a4c64487264"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "TutorialMoreAboutSection",
 CellID->23220180,ExpressionUUID->"e1409007-77ef-48a0-b188-6955907bb894"],

Cell[TextData[ButtonBox["RefpropLink Guide",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/guide/RefpropLink"]], "TutorialMoreAbout",
 CellChangeTimes->{{3.829554477265361*^9, 3.829554507471608*^9}},
 CellID->1567025153,ExpressionUUID->"8015610e-3dbd-47af-bb5b-76adb3a751ec"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Tutorials", "RelatedTutorialsSection",
 CellID->415694126,ExpressionUUID->"9eb1cd53-f984-47f2-81c8-ed826649694e"],

Cell[TextData[ButtonBox["RefpropLink Overview",
 BaseStyle->"Link",
 ButtonData->
  "paclet:RefpropLink/tutorial/RefpropLinkOverview"]], "RelatedTutorials",
 CellChangeTimes->{{3.831186766631734*^9, 3.831186789799773*^9}},
 CellID->90776795,ExpressionUUID->"7023b7bc-6871-4e18-b287-3ad110ad8d54"],

Cell[TextData[ButtonBox["RefpropLink Units",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/Units"]], "RelatedTutorials",
 CellChangeTimes->{{3.829554551369272*^9, 3.829554555001528*^9}, {
  3.829554631192824*^9, 3.8295546340571938`*^9}, {3.82955608318342*^9, 
  3.829556083387905*^9}, {3.830412161751325*^9, 3.830412167343365*^9}, {
  3.8311814542295265`*^9, 3.8311814575492225`*^9}, {3.831186262183939*^9, 
  3.8311862652078514`*^9}},
 CellID->127830579,ExpressionUUID->"b26db3c9-791f-4e3f-8140-567ca1deee8c"],

Cell[TextData[ButtonBox["Pure Fluids",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/PureFluids"]], "RelatedTutorials",
 CellChangeTimes->{{3.829554551369272*^9, 3.829554555001528*^9}, {
  3.8295560590748954`*^9, 3.8295560592125425`*^9}},
 CellID->806871991,ExpressionUUID->"ffe8fb96-4dc1-4ce7-9958-9a6ac00b90aa"],

Cell[TextData[ButtonBox["Mixtures",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/Mixtures"]], "RelatedTutorials",
 CellChangeTimes->{{3.829554551369272*^9, 3.829554555001528*^9}, {
  3.8295546235452986`*^9, 3.8295546252996035`*^9}, {3.8295560700585113`*^9, 
  3.8295560702480116`*^9}},
 CellID->190022963,ExpressionUUID->"9eca36da-6866-44c1-a06e-468307dfa912"],

Cell[TextData[ButtonBox["Pure Fluids (Legacy API)",
 BaseStyle->"Link",
 ButtonData->
  "paclet:RefpropLink/tutorial/PureFluidsLegacyAPI"]], "RelatedTutorials",
 CellChangeTimes->{{3.8295561964894886`*^9, 3.8295562199537535`*^9}, {
  3.829556285424712*^9, 3.8295562856641026`*^9}},
 CellID->103662598,ExpressionUUID->"e775de24-264c-4d46-a0d9-450ee97d1e85"],

Cell[TextData[ButtonBox["Mixtures (Legacy API)",
 BaseStyle->"Link",
 ButtonData->
  "paclet:RefpropLink/tutorial/MixturesLegacyAPI"]], "RelatedTutorials",
 CellChangeTimes->{{3.82955620402534*^9, 3.829556228169789*^9}, {
  3.8295563025080395`*^9, 3.829556302694574*^9}},
 CellID->17959204,ExpressionUUID->"88b9f2d5-7826-4bf6-87c8-c9dcc466d17f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Wolfram Education Group Courses", "TutorialRelatedLinksSection",
 CellID->415694148,ExpressionUUID->"32544ff3-da5f-4a0e-82fe-848c99189f19"],

Cell["XXXX", "TutorialRelatedLinks",
 CellID->415694149,ExpressionUUID->"e58b8f2e-ddf0-4b16-b1b3-c659d611fbe2"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{779, 830},
WindowMargins->{{-1121, Automatic}, {Automatic, 20}},
TaggingRules->{
 "DocuToolsSettings" -> {
   "$ApplicationName" -> "RefpropLink", "$LinkBase" -> "RefpropLink", 
    "$DocumentationDirectory" -> 
    "C:\\Users\\jeffp\\eclipse-workspace\\RefpropLink\\RefpropLink\\\
Documentation\\English\\", "$ApplicationDirectory" -> 
    "C:\\Users\\jeffp\\eclipse-workspace\\RefpropLink\\RefpropLink"}, 
  "WelcomeScreenSettings" -> {"FEStarting" -> False}, "TryRealOnly" -> False},
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "TutorialPageStyles.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"1288ab20-f3dc-48ec-b560-3baed3fd191a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 22, "History",ExpressionUUID->"3376bfad-4d10-4930-9d2a-0371a814ca79",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 27, "CategorizationSection",ExpressionUUID->"6b793626-5a60-4e1f-8673-a35c54651ea6",
 CellID->1122911449],
Cell[1309, 41, 136, 2, 70, "Categorization",ExpressionUUID->"6e7252a3-d910-4387-9baa-dc919f7cbd5d",
 CellID->686433507],
Cell[1448, 45, 139, 2, 70, "Categorization",ExpressionUUID->"77712005-16b6-4b73-b7e0-0dd090f548fb",
 CellID->605800465],
Cell[1590, 49, 136, 2, 70, "Categorization",ExpressionUUID->"92d4887f-c8fb-4375-8be3-9ba7bf8ca731",
 CellID->468444828],
Cell[1729, 53, 135, 1, 70, "Categorization",ExpressionUUID->"c8b5612c-03e3-496e-a5e7-142cc6a5214c"]
}, Closed]],
Cell[CellGroupData[{
Cell[1901, 59, 111, 1, 17, "KeywordsSection",ExpressionUUID->"573d6d22-dd2b-4eac-b9ea-6d53f39cee53",
 CellID->1427428552],
Cell[2015, 62, 175, 2, 16, "Keywords",ExpressionUUID->"191bd2a6-492f-40c6-af1a-ffad99a4a502",
 CellID->1251852827],
Cell[2193, 66, 168, 2, 16, "Keywords",ExpressionUUID->"41f6e0a3-9c7f-4fe0-b351-a667e011fcde",
 CellID->216879426],
Cell[2364, 70, 172, 2, 16, "Keywords",ExpressionUUID->"9b83fe6a-3f1c-499e-b033-57753b1fca55",
 CellID->154751131],
Cell[2539, 74, 167, 2, 16, "Keywords",ExpressionUUID->"75b76ea9-24a0-4558-b0ca-a3a764e4a246",
 CellID->29205878],
Cell[2709, 78, 171, 2, 16, "Keywords",ExpressionUUID->"b44a215e-8ea4-4b34-a861-dcd140aa48a8",
 CellID->538564055],
Cell[2883, 82, 170, 2, 16, "Keywords",ExpressionUUID->"3cfd1805-dd86-4c0a-ba12-3ff08594a33c",
 CellID->394345204]
}, Closed]],
Cell[CellGroupData[{
Cell[3090, 89, 108, 1, 17, "DetailsSection",ExpressionUUID->"322bb16c-3234-4032-9f5a-78d862afac11",
 CellID->307771771],
Cell[3201, 92, 202, 3, 30, "Details",ExpressionUUID->"01253036-2b27-4b95-9038-21c09d73be90",
 CellID->218895918],
Cell[3406, 97, 202, 3, 30, "Details",ExpressionUUID->"bdffa3e3-002a-4818-90ff-4300d88db90d",
 CellID->350963985],
Cell[3611, 102, 197, 3, 30, "Details",ExpressionUUID->"3cad3654-a9af-4c45-854e-d49337109947",
 CellID->795871300],
Cell[3811, 107, 126, 2, 30, "Details",ExpressionUUID->"5cfed646-b428-4fc2-b5c1-80557fbb81c4",
 CellID->199739161],
Cell[3940, 111, 115, 2, 30, "Details",ExpressionUUID->"d0375f81-a092-4453-a8da-672f3970f7c2",
 CellID->40625308],
Cell[4058, 115, 116, 2, 30, "Details",ExpressionUUID->"1f04202e-d027-49d5-8b2b-f58b1139a0a6",
 CellID->357121918],
Cell[4177, 119, 117, 2, 30, "Details",ExpressionUUID->"55772c2b-ac7b-472e-a036-612608bf446e",
 CellID->35949532],
Cell[4297, 123, 133, 2, 30, "Details",ExpressionUUID->"c3bfd6ff-8d8b-4f9c-a05b-a5d7b2777972",
 CellID->929432370],
Cell[4433, 127, 122, 2, 30, "Details",ExpressionUUID->"59100d1b-12fc-470d-a9c5-2327edb17c3e",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4592, 134, 286, 4, 105, "Title",ExpressionUUID->"b82896c5-a435-47d6-8dc3-9fab3c9f0f13",
 CellID->509267359],
Cell[4881, 140, 303, 6, 25, "Text",ExpressionUUID->"f9d60e3e-5ffd-4414-8284-8b6f8177a96b",
 CellID->314664191],
Cell[5187, 148, 1077, 16, 96, "Text",ExpressionUUID->"c7b73530-91d6-4625-a56e-3e72d808d4ae",
 CellID->1534169418],
Cell[6267, 166, 589, 9, 66, "Text",ExpressionUUID->"df6e567a-7ca5-4c39-86b1-6fcfa8fc42c3",
 CellID->156958282],
Cell[6859, 177, 937, 14, 81, "Text",ExpressionUUID->"8577397b-b480-424f-a13d-7f943d15983b",
 CellID->70517792],
Cell[7799, 193, 772, 15, 51, "Text",ExpressionUUID->"1a7f0dec-b8e5-4178-996a-1a81dace6519",
 CellID->313088543],
Cell[8574, 210, 1948, 42, 172, "DefinitionBox",ExpressionUUID->"b5ae5c96-0cf6-48ea-aca4-c8fcbe59e269",
 CellID->110365889],
Cell[10525, 254, 257, 3, 27, "Caption",ExpressionUUID->"1884e8ac-d7d4-4923-bbfe-622c212fea25",
 CellID->366059264],
Cell[CellGroupData[{
Cell[10807, 261, 373, 5, 50, "Section",ExpressionUUID->"e38c5208-7642-4a56-a449-871a32a4053e",
 CellID->235099168],
Cell[11183, 268, 740, 16, 51, "Text",ExpressionUUID->"c39854e3-2f6c-4813-99fd-1a196e1c4916",
 CellID->642478],
Cell[11926, 286, 3434, 90, 270, "DefinitionBox",ExpressionUUID->"178668a0-28f5-41b6-8eea-7ae8c33b15e0",
 CellID->5227948],
Cell[15363, 378, 191, 2, 27, "Caption",ExpressionUUID->"7befbce2-12e5-4f41-9d43-783a992c7407",
 CellID->807787799]
}, Open  ]],
Cell[CellGroupData[{
Cell[15591, 385, 256, 4, 50, "Section",ExpressionUUID->"17853b90-6f09-45e5-9b4e-75096f8e0b97",
 CellID->116862650],
Cell[15850, 391, 628, 9, 51, "Text",ExpressionUUID->"36b6f699-2f4c-4337-ab55-2d02d419ba48",
 CellID->273243778],
Cell[CellGroupData[{
Cell[16503, 404, 241, 3, 38, "MathCaption",ExpressionUUID->"408dffdb-6b2e-4cf6-921a-04c2f4b7c5a2",
 CellID->838524819],
Cell[16747, 409, 246, 4, 25, "Input",ExpressionUUID->"36e3ceda-6a11-4fe4-bd4f-b6dc01ca8666",
 CellID->28796156],
Cell[CellGroupData[{
Cell[17018, 417, 294, 5, 25, "Input",ExpressionUUID->"f34098cd-41d1-4bf4-80fb-c39d51dcd330",
 CellID->412954371],
Cell[17315, 424, 424, 8, 32, "Print",ExpressionUUID->"ec830a55-3892-4fca-86cd-a418ceef8a88",
 CellID->343829516]
}, Open  ]]
}, Open  ]],
Cell[17766, 436, 535, 9, 51, "Text",ExpressionUUID->"d7ecb164-088b-458a-a811-bde2e1558fc0",
 CellID->284028808],
Cell[18304, 447, 896, 16, 67, "Text",ExpressionUUID->"1cec86a6-0eba-4748-b62b-79068d0d2dd1",
 CellID->82110915],
Cell[CellGroupData[{
Cell[19225, 467, 361, 8, 38, "MathCaption",ExpressionUUID->"699fcb51-9a84-461c-aff8-3fdb814b9365",
 CellID->330237406],
Cell[CellGroupData[{
Cell[19611, 479, 272, 5, 25, "Input",ExpressionUUID->"4e7d885f-20af-4aa3-b6c2-837f088ccdd5",
 CellID->59478798],
Cell[19886, 486, 350, 7, 32, "Print",ExpressionUUID->"c3e0584a-ccd5-4945-9b35-849eda8f48ba",
 CellID->7845594]
}, Open  ]]
}, Open  ]],
Cell[20263, 497, 645, 13, 51, "Text",ExpressionUUID->"846f9819-d376-45de-a431-2982e99b7056",
 CellID->126090326],
Cell[CellGroupData[{
Cell[20933, 514, 411, 9, 38, "MathCaption",ExpressionUUID->"bb734a77-cb5e-460b-b864-ad832c189f24",
 CellID->2113052],
Cell[CellGroupData[{
Cell[21369, 527, 352, 6, 25, "Input",ExpressionUUID->"6984c45f-454f-4d50-b2ec-57606647b226",
 CellID->10393980],
Cell[21724, 535, 352, 7, 32, "Print",ExpressionUUID->"037d4e8f-1629-4100-bdc7-8b3c7f5c990f",
 CellID->399260247]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22137, 549, 215, 3, 50, "Section",ExpressionUUID->"d9603bec-85d8-496f-9696-f3aee503a4e7",
 CellID->92083479],
Cell[22355, 554, 500, 8, 36, "Text",ExpressionUUID->"1f1b5369-a4c9-48c5-af80-50e2187cf187",
 CellID->1140557],
Cell[22858, 564, 276, 5, 20, "BulletedText",ExpressionUUID->"fca4dfdd-d65c-4ede-a0c8-faf2474c497f",
 CellID->24546133],
Cell[23137, 571, 397, 7, 34, "BulletedText",ExpressionUUID->"86fab717-55bf-4f0e-aecd-ef275d494c9f",
 CellID->460952491],
Cell[23537, 580, 366, 6, 34, "BulletedText",ExpressionUUID->"97fbeef9-c785-4a03-a886-c32ebf459163",
 CellID->121045030],
Cell[23906, 588, 377, 6, 20, "BulletedText",ExpressionUUID->"ee719d0b-d353-4a7c-8dc9-501e75c5e48d",
 CellID->45867184],
Cell[24286, 596, 393, 7, 20, "BulletedText",ExpressionUUID->"e7a1d2a6-3261-4fef-b342-939bed196d51",
 CellID->690920834],
Cell[24682, 605, 350, 6, 20, "BulletedText",ExpressionUUID->"ed74b6c9-9a23-4cec-8937-f5f72e9b3622",
 CellID->41726055],
Cell[25035, 613, 428, 7, 34, "BulletedText",ExpressionUUID->"18709368-36d8-4bcd-92cc-4a8433e41bb8",
 CellID->424591168],
Cell[25466, 622, 663, 11, 66, "Text",ExpressionUUID->"eb6bef31-c826-459f-b22f-2af797241181",
 CellID->45361538],
Cell[26132, 635, 671, 17, 90, "Text",ExpressionUUID->"179c04d3-87bc-4c45-97be-f5ca60749578",
 CellID->375240898],
Cell[26806, 654, 471, 8, 51, "Text",ExpressionUUID->"4c2b51f0-97de-4487-b199-f0f642d1bf67",
 CellID->463728785],
Cell[27280, 664, 388, 7, 36, "Text",ExpressionUUID->"9fcfdbb3-2210-4f2e-8ba2-71217a2a44bf",
 CellID->67473665],
Cell[CellGroupData[{
Cell[27693, 675, 412, 7, 52, "MathCaption",ExpressionUUID->"f00c9c98-bbd5-40eb-82ad-96d6c48dec8c",
 CellID->98686011],
Cell[CellGroupData[{
Cell[28130, 686, 309, 7, 25, "Input",ExpressionUUID->"6153fb1b-af20-4cde-a79a-71e0036e8f11",
 CellID->201830295],
Cell[28442, 695, 527, 12, 36, "Output",ExpressionUUID->"987b480d-6234-4196-8519-6d6a2f06d075",
 CellID->463223023]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29018, 713, 640, 13, 66, "MathCaption",ExpressionUUID->"18a96863-b8c1-4200-aa4d-6ca42c09f607",
 CellID->221049004],
Cell[CellGroupData[{
Cell[29683, 730, 432, 9, 25, "Input",ExpressionUUID->"b7c322d8-c477-47bc-bb52-8932535ef375",
 CellID->78962887],
Cell[30118, 741, 516, 12, 36, "Output",ExpressionUUID->"e6ef7c19-e9f3-4fb1-ab57-112180b3427e",
 CellID->222608738]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[30683, 759, 535, 9, 66, "MathCaption",ExpressionUUID->"724a3365-41c3-4ca6-a702-0783f3ba3670",
 CellID->901006594],
Cell[CellGroupData[{
Cell[31243, 772, 485, 9, 25, "Input",ExpressionUUID->"0ce1f178-b095-4292-a576-28759a8dffea",
 CellID->276260743],
Cell[31731, 783, 1598, 38, 36, "Output",ExpressionUUID->"195d783f-b539-4a7d-98ca-a6d9d4288216",
 CellID->232909077]
}, Open  ]]
}, Open  ]],
Cell[33356, 825, 567, 9, 36, "Text",ExpressionUUID->"ff54f01b-a001-4d9e-b149-17f8d69b71d6",
 CellID->54056624]
}, Open  ]],
Cell[CellGroupData[{
Cell[33960, 839, 285, 4, 50, "Section",ExpressionUUID->"bfc7308b-f1b6-4d07-9e17-87b149a8bd08",
 CellID->96132265],
Cell[34248, 845, 580, 12, 51, "Text",ExpressionUUID->"0da66a64-6cee-43dc-8d50-532aac340520",
 CellID->599789128],
Cell[34831, 859, 476, 8, 20, "BulletedText",ExpressionUUID->"b2f5ba00-b1a9-436b-9f9e-f4f9b86bb668",
 CellID->118059045],
Cell[35310, 869, 503, 8, 34, "BulletedText",ExpressionUUID->"ac3bc3cb-4fe5-4eb0-95d1-12c5bf646182",
 CellID->119356857],
Cell[35816, 879, 477, 8, 20, "BulletedText",ExpressionUUID->"8ae74c7a-5cb3-4e60-b710-3cc0c6c7be61",
 CellID->255339440],
Cell[36296, 889, 582, 10, 66, "Text",ExpressionUUID->"1df2825e-6076-4d66-ba5e-19a87203f39a",
 CellID->34253809],
Cell[CellGroupData[{
Cell[36903, 903, 503, 6, 38, "MathCaption",ExpressionUUID->"87c80046-f7ce-4f99-9a72-b4f3e4387264",
 CellID->161749569],
Cell[CellGroupData[{
Cell[37431, 913, 704, 15, 25, "Input",ExpressionUUID->"6443c664-0c97-4642-8c0c-81cd527066a4",
 CellID->8872921],
Cell[38138, 930, 490, 9, 33, "Output",ExpressionUUID->"611a29c5-01c3-4d51-bbf0-c2fb4cf293f5",
 CellID->467396222]
}, Open  ]],
Cell[CellGroupData[{
Cell[38665, 944, 660, 14, 25, "Input",ExpressionUUID->"6e997389-5b79-44b5-b596-2abbf6da5641",
 CellID->398743861],
Cell[39328, 960, 296, 6, 33, "Output",ExpressionUUID->"b461d73d-f85e-4243-b022-09bb90e23eae",
 CellID->151549628]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[39673, 972, 190, 2, 38, "MathCaption",ExpressionUUID->"ae0905b5-dc6f-4222-8111-a369e082634a",
 CellID->708980053],
Cell[CellGroupData[{
Cell[39888, 978, 911, 21, 25, "Input",ExpressionUUID->"2c3cb6a2-3573-4d08-b2dc-3b3a3261b1ad",
 CellID->200024143],
Cell[40802, 1001, 320, 6, 33, "Output",ExpressionUUID->"0cbec61a-e796-44cc-93fd-923a5c6b4659",
 CellID->571202970]
}, Open  ]],
Cell[CellGroupData[{
Cell[41159, 1012, 477, 12, 25, "Input",ExpressionUUID->"476a62f4-f427-480f-8687-c35161580a5c",
 CellID->102315502],
Cell[41639, 1026, 342, 7, 33, "Output",ExpressionUUID->"97dc649a-173e-453d-8216-0fe007af4a4b",
 CellID->32960574]
}, Open  ]]
}, Open  ]],
Cell[42008, 1037, 813, 16, 67, "Text",ExpressionUUID->"3f9b0b5a-2ad6-4af9-96c2-94315c745190",
 CellID->69411777],
Cell[42824, 1055, 736, 13, 51, "Text",ExpressionUUID->"9cd1e778-b5d6-4893-bc63-39dde3e44e0b",
 CellID->187566636],
Cell[43563, 1070, 528, 14, 36, "Text",ExpressionUUID->"0ddb80ef-ddda-4661-8e14-60079948fba2",
 CellID->602626353]
}, Open  ]],
Cell[CellGroupData[{
Cell[44128, 1089, 211, 3, 50, "Section",ExpressionUUID->"75b3f451-25de-4685-98ad-60a2a238ed9a",
 CellID->77764491],
Cell[44342, 1094, 947, 14, 81, "Text",ExpressionUUID->"6078d736-dd3a-47d0-8dc3-d8ca5da054fc",
 CellID->159587105],
Cell[CellGroupData[{
Cell[45314, 1112, 423, 5, 38, "MathCaption",ExpressionUUID->"847b92ee-2f10-4650-9345-94bd332780f0",
 CellID->316810936],
Cell[CellGroupData[{
Cell[45762, 1121, 620, 12, 25, "Input",ExpressionUUID->"4a271e27-2442-4ce6-904f-0f71af5a5fef",
 CellID->155324771],
Cell[46385, 1135, 1902, 46, 66, "Output",ExpressionUUID->"d593eddd-a264-41c7-b97b-6058aafb2d6b",
 CellID->267833108]
}, Open  ]]
}, Open  ]],
Cell[48314, 1185, 496, 8, 51, "Text",ExpressionUUID->"6aa9597c-09b6-4688-b5b1-012580aed0bc",
 CellID->799296246],
Cell[CellGroupData[{
Cell[48835, 1197, 461, 6, 38, "MathCaption",ExpressionUUID->"e1006df8-2971-4733-a35d-14192f9240e3",
 CellID->480708153],
Cell[CellGroupData[{
Cell[49321, 1207, 624, 11, 25, "Input",ExpressionUUID->"7dfc74a3-8049-40d5-b843-a6d6e22c4c0c",
 CellID->462806898],
Cell[49948, 1220, 2199, 56, 146, "Output",ExpressionUUID->"5f821492-eb20-4123-9ded-f658fda2915f",
 CellID->110586000]
}, Open  ]]
}, Open  ]],
Cell[52174, 1280, 609, 13, 51, "Text",ExpressionUUID->"c736fa6a-1207-4978-9bb9-0a3ea5e67eb0",
 CellID->366168089],
Cell[CellGroupData[{
Cell[52808, 1297, 672, 14, 80, "MathCaption",ExpressionUUID->"d6e6240a-dd5e-4c28-bea2-c0e54949ce34",
 CellID->762513755],
Cell[CellGroupData[{
Cell[53505, 1315, 325, 8, 25, "Input",ExpressionUUID->"be0bae48-16c2-48c9-8391-6550201264db",
 CellID->282938116],
Cell[53833, 1325, 399, 9, 34, "Output",ExpressionUUID->"5828b14a-cb49-4dfb-b8eb-f74908ab8c75",
 CellID->209006648]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[54281, 1340, 371, 7, 52, "MathCaption",ExpressionUUID->"02629376-db78-4842-b082-848b1f5d16db",
 CellID->589270089],
Cell[CellGroupData[{
Cell[54677, 1351, 350, 8, 25, "Input",ExpressionUUID->"380443ce-a465-4818-91dc-06c62fb6faee",
 CellID->235694244],
Cell[55030, 1361, 527, 12, 36, "Output",ExpressionUUID->"63fa63f2-78cc-4135-8526-747f6f5531b4",
 CellID->264920853]
}, Open  ]]
}, Open  ]],
Cell[55584, 1377, 587, 10, 51, "Text",ExpressionUUID->"bc6c6787-812f-4fbb-a927-5454618d12af",
 CellID->41088186],
Cell[CellGroupData[{
Cell[56196, 1391, 485, 8, 38, "MathCaption",ExpressionUUID->"c4d19ac4-4678-4c02-a5a8-8739c5da7e30",
 CellID->141866262],
Cell[CellGroupData[{
Cell[56706, 1403, 424, 11, 25, "Input",ExpressionUUID->"02d9d576-5ef7-48a7-b1af-6a1ef148cde8",
 CellID->371740740],
Cell[57133, 1416, 404, 9, 35, "Output",ExpressionUUID->"faf7132f-0c96-40b4-9bcd-5cebd2b3c020",
 CellID->348905257]
}, Open  ]]
}, Open  ]],
Cell[57564, 1429, 633, 11, 66, "Text",ExpressionUUID->"d7c574fc-1f5e-4430-8713-ceee376c5e16",
 CellID->668001956],
Cell[CellGroupData[{
Cell[58222, 1444, 260, 5, 52, "MathCaption",ExpressionUUID->"75a1ffc2-85d5-4845-bd78-f8939371ff20",
 CellID->271031798],
Cell[58485, 1451, 605, 16, 25, "Input",ExpressionUUID->"2a07ad7f-a40b-494f-a880-95f2c268862b",
 CellID->394990815]
}, Open  ]],
Cell[59105, 1470, 378, 7, 36, "Text",ExpressionUUID->"348ba4a4-8d77-421d-ac5f-224364bf1bdb",
 CellID->40145104],
Cell[CellGroupData[{
Cell[59508, 1481, 215, 2, 38, "MathCaption",ExpressionUUID->"7139edca-22f5-41c5-ab74-07aa258c44a6",
 CellID->317032404],
Cell[CellGroupData[{
Cell[59748, 1487, 350, 8, 25, "Input",ExpressionUUID->"eafe43fe-1efa-41c4-8f52-5ea0f0eecabf",
 CellID->16982971],
Cell[60101, 1497, 460, 11, 35, "Output",ExpressionUUID->"7615fa53-9f23-4fd6-8cee-4aa5f743d7bf",
 CellID->167991111]
}, Open  ]],
Cell[CellGroupData[{
Cell[60598, 1513, 295, 7, 25, "Input",ExpressionUUID->"40087b3f-9796-42f2-adb6-82cc105c9c74",
 CellID->610772491],
Cell[60896, 1522, 534, 12, 36, "Output",ExpressionUUID->"746c40a7-b758-4100-b2c1-44a2607a1bb0",
 CellID->934667]
}, Open  ]],
Cell[CellGroupData[{
Cell[61467, 1539, 321, 7, 25, "Input",ExpressionUUID->"2ff3ea78-d1c3-450a-9613-5b37ab0e39eb",
 CellID->221000063],
Cell[61791, 1548, 532, 12, 36, "Output",ExpressionUUID->"9cbcb9d2-c469-40a3-a10f-911f3519a571",
 CellID->557268634]
}, Open  ]],
Cell[CellGroupData[{
Cell[62360, 1565, 434, 8, 25, "Input",ExpressionUUID->"3347ce58-9ceb-4651-9b3f-d85f83da46c4",
 CellID->680762625],
Cell[62797, 1575, 555, 12, 34, "Output",ExpressionUUID->"426e0b32-8690-46f6-ba87-fed7375624bd",
 CellID->70568261]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[63413, 1594, 315, 5, 50, "Section",ExpressionUUID->"4832a15d-4cd1-4a89-8b9e-4fbd897f58ee",
 CellID->12415996],
Cell[63731, 1601, 1116, 20, 82, "Text",ExpressionUUID->"f5335512-3f9a-4ff1-9fe0-91cd0394973b",
 CellID->237331234],
Cell[64850, 1623, 694, 14, 51, "Text",ExpressionUUID->"9c79ff00-e84e-493d-86ac-402f94577157",
 CellID->26690458],
Cell[65547, 1639, 770, 14, 51, "Text",ExpressionUUID->"1623fc86-5e2d-4af3-afbc-0e0a80bb712f",
 CellID->313159363],
Cell[66320, 1655, 1863, 52, 95, "Text",ExpressionUUID->"f615dba5-0976-47af-8cc4-a0ca68762f4c",
 CellID->349481607],
Cell[68186, 1709, 468, 13, 20, "BulletedText",ExpressionUUID->"3fab5761-915d-4545-8337-133a2e973e57",
 CellID->124442481],
Cell[68657, 1724, 303, 5, 20, "BulletedText",ExpressionUUID->"e3b3120b-059e-458a-a900-7d9ad284ed86",
 CellID->921690246],
Cell[68963, 1731, 377, 7, 20, "BulletedText",ExpressionUUID->"da261086-07d1-475e-bf6d-1b51b9e2895f",
 CellID->444447270],
Cell[69343, 1740, 453, 7, 34, "BulletedText",ExpressionUUID->"7cd0ca69-282d-4228-ad7e-f5bf2a776a38",
 CellID->32836395],
Cell[CellGroupData[{
Cell[69821, 1751, 272, 3, 38, "MathCaption",ExpressionUUID->"7fbbe934-88f5-4915-b069-29b95cfbc2fa",
 CellID->44424033],
Cell[CellGroupData[{
Cell[70118, 1758, 880, 24, 62, "Input",ExpressionUUID->"0b1bd62b-ab6f-4802-9740-7b3e6ced3a3f",
 CellID->27974498],
Cell[71001, 1784, 526, 10, 24, "Output",ExpressionUUID->"d9bdf787-f3af-42dc-bfdc-ec01fe154e66",
 CellID->405396610]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[71576, 1800, 218, 2, 38, "MathCaption",ExpressionUUID->"4539fc08-ce26-46b8-9b4a-e369756973cc",
 CellID->174335361],
Cell[CellGroupData[{
Cell[71819, 1806, 340, 6, 25, "Input",ExpressionUUID->"f030ed7c-785d-4487-a715-961eef6e5221",
 CellID->106779959],
Cell[72162, 1814, 237, 5, 24, "Output",ExpressionUUID->"bd5c8c54-7cd0-4c6e-8a43-25ced5fe7c02",
 CellID->780476960]
}, Open  ]],
Cell[CellGroupData[{
Cell[72436, 1824, 268, 5, 25, "Input",ExpressionUUID->"61f1c51a-38b3-4d11-bb62-4db46d78d836",
 CellID->325279624],
Cell[72707, 1831, 843, 16, 61, "Output",ExpressionUUID->"313b4c8b-c3dd-4168-97a1-7004250a2652",
 CellID->43207614]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[73611, 1854, 372, 5, 50, "Section",ExpressionUUID->"8d433c70-5e70-41fa-97e5-04df88854fb8",
 CellID->454572720],
Cell[73986, 1861, 1037, 22, 81, "Text",ExpressionUUID->"8b38b07b-983b-482e-ad1a-f82e74b89413",
 CellID->273680782],
Cell[CellGroupData[{
Cell[75048, 1887, 278, 4, 38, "MathCaption",ExpressionUUID->"8d5d6548-ec60-4f8c-b461-3adf0e59054e",
 CellID->24839778],
Cell[CellGroupData[{
Cell[75351, 1895, 237, 4, 25, "Input",ExpressionUUID->"78286126-2535-408d-b84c-a78aa387162a",
 CellID->936167206],
Cell[75591, 1901, 245, 5, 24, "Output",ExpressionUUID->"a6a659ee-1b7e-488a-8570-a7ffc8650589",
 CellID->187165966]
}, Open  ]],
Cell[CellGroupData[{
Cell[75873, 1911, 233, 4, 25, "Input",ExpressionUUID->"363aebd1-d7b2-4d01-9f71-ea2ab30d9bd5",
 CellID->40283992],
Cell[76109, 1917, 279, 6, 24, "Output",ExpressionUUID->"c91826c5-d14e-47e8-9c07-7e3514d9b614",
 CellID->242782945]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[76437, 1929, 183, 2, 38, "Subsection",ExpressionUUID->"a0aecd40-8a51-4dd6-990e-ecf65120395d",
 CellID->7303427],
Cell[76623, 1933, 523, 12, 51, "Text",ExpressionUUID->"b9357122-21eb-47f5-a56d-6770d40c3c0b",
 CellID->405290370],
Cell[77149, 1947, 518, 10, 51, "Text",ExpressionUUID->"f97ae6ad-a7d0-4e7b-a368-0ade1403a9a2",
 CellID->226711794],
Cell[CellGroupData[{
Cell[77692, 1961, 256, 5, 38, "MathCaption",ExpressionUUID->"c7425b5d-0d41-4226-897a-bfc5080cf43e",
 CellID->186715771],
Cell[77951, 1968, 311, 7, 25, "Input",ExpressionUUID->"d743ef72-e42e-4ec3-b76a-404eea798d1f",
 CellID->316887650]
}, Open  ]],
Cell[CellGroupData[{
Cell[78299, 1980, 478, 7, 52, "MathCaption",ExpressionUUID->"788ab824-288b-4eb7-9976-5dba55acdd99",
 CellID->764800028],
Cell[CellGroupData[{
Cell[78802, 1991, 637, 13, 25, "Input",ExpressionUUID->"0a6b26a8-334b-40f2-a919-f2170a8af667",
 CellID->142389452],
Cell[79442, 2006, 1592, 40, 66, "Output",ExpressionUUID->"56924e62-4208-482b-9c9e-53d94de605cb",
 CellID->370782116]
}, Open  ]]
}, Open  ]],
Cell[81061, 2050, 372, 7, 21, "Text",ExpressionUUID->"648ad119-4c00-4990-bd8e-ede837226472",
 CellID->92346773],
Cell[81436, 2059, 358, 6, 36, "Text",ExpressionUUID->"6ba9f01e-ff46-4d18-b4dc-244c172316e8",
 CellID->134023288],
Cell[81797, 2067, 606, 10, 66, "Text",ExpressionUUID->"3aa059bb-a360-4bfc-a3b9-364cfe15a362",
 CellID->538185189]
}, Open  ]],
Cell[CellGroupData[{
Cell[82440, 2082, 184, 2, 38, "Subsection",ExpressionUUID->"04618474-08f1-4ec2-9c2e-1dc8752fc458",
 CellID->332076108],
Cell[82627, 2086, 429, 10, 36, "Text",ExpressionUUID->"beaaf803-088b-4198-bf99-0fdd6281edc8",
 CellID->769906272],
Cell[CellGroupData[{
Cell[83081, 2100, 682, 16, 40, "MathCaption",ExpressionUUID->"b71705f3-f711-455a-8dd6-5588cf1f3a74",
 CellID->622671432],
Cell[CellGroupData[{
Cell[83788, 2120, 334, 7, 25, "Input",ExpressionUUID->"4bb0912d-3089-4db6-a7d0-351f33ed156c",
 CellID->186284404],
Cell[84125, 2129, 464, 9, 21, "Message",ExpressionUUID->"d741201c-c67f-4ad8-8ec3-86788bfba89c",
 CellID->156705881],
Cell[84592, 2140, 224, 4, 24, "Output",ExpressionUUID->"4109419d-5325-40de-b07a-8434de810474",
 CellID->789996233]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[84877, 2151, 183, 2, 38, "Subsection",ExpressionUUID->"184f1b5d-f321-42f9-8de5-57375a9c631b",
 CellID->303234996],
Cell[85063, 2155, 624, 16, 51, "Text",ExpressionUUID->"0a6f6f16-c071-4300-8c05-abf67a2dde81",
 CellID->389059614]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[85736, 2177, 387, 5, 50, "Section",ExpressionUUID->"f251c236-d3b7-4797-8450-9eb7f1df8488",
 CellID->50703201],
Cell[86126, 2184, 729, 11, 81, "Text",ExpressionUUID->"284f6157-4e21-4aa0-9529-15f7b32a5773",
 CellID->13351350],
Cell[CellGroupData[{
Cell[86880, 2199, 431, 7, 52, "MathCaption",ExpressionUUID->"3c6769e9-2d67-441e-930b-c2e2c2b45388",
 CellID->2266733],
Cell[87314, 2208, 931, 22, 62, "Input",ExpressionUUID->"389da571-b5d3-4658-a2ab-02519eb1ec0e",
 CellID->584385686],
Cell[CellGroupData[{
Cell[88270, 2234, 430, 7, 25, "Input",ExpressionUUID->"592338a5-a032-4ad3-a9e8-b6b77dda6dab",
 CellID->354505472],
Cell[88703, 2243, 551, 10, 34, "Output",ExpressionUUID->"e0456719-27e2-4a63-93db-791987bdfc5d",
 CellID->239489759]
}, Open  ]]
}, Open  ]],
Cell[89281, 2257, 614, 12, 52, "Text",ExpressionUUID->"6a1bae5f-4ca4-4f3c-b3e7-946e75518d8a",
 CellID->62905183],
Cell[CellGroupData[{
Cell[89920, 2273, 306, 4, 38, "MathCaption",ExpressionUUID->"6ba7c955-aa47-40d2-9b0f-f3eade5ea2e4",
 CellID->38919302],
Cell[CellGroupData[{
Cell[90251, 2281, 690, 15, 25, "Input",ExpressionUUID->"ec6d6047-5d71-407f-a7ea-448129c7cf93",
 CellID->835394182],
Cell[90944, 2298, 420, 8, 19, "Message",ExpressionUUID->"92a08b32-1b00-4d0e-a7c4-7bb93e2e34d4",
 CellID->135675079],
Cell[91367, 2308, 393, 8, 19, "Message",ExpressionUUID->"52217cb0-443f-4843-aca9-3f329caa8ee5",
 CellID->447418714],
Cell[91763, 2318, 525, 10, 19, "Message",ExpressionUUID->"979a2517-8d8f-44f3-9b68-652548106791",
 CellID->46713604],
Cell[92291, 2330, 1257, 21, 32, "Message",ExpressionUUID->"f134dc24-97db-41b7-9df8-5e3643594daf",
 CellID->392110355],
Cell[93551, 2353, 592, 13, 24, "Output",ExpressionUUID->"07b76e75-cf73-4476-8c01-dda441dbd537",
 CellID->413084486]
}, Open  ]]
}, Open  ]],
Cell[94170, 2370, 1039, 21, 98, "Text",ExpressionUUID->"147d8b78-efc4-40f3-962e-8ae5aa2d3882",
 CellID->193933652],
Cell[95212, 2393, 1362, 32, 83, "Text",ExpressionUUID->"e9db5818-1d55-4647-86e4-3cf1ffbfe244",
 CellID->1967005],
Cell[CellGroupData[{
Cell[96599, 2429, 184, 2, 38, "MathCaption",ExpressionUUID->"5e14206b-a51e-4131-9be7-d92186c6bae1",
 CellID->69300107],
Cell[CellGroupData[{
Cell[96808, 2435, 233, 4, 25, "Input",ExpressionUUID->"ca1610b1-afae-4b46-968f-a51ee1eadd31",
 CellID->4704819],
Cell[97044, 2441, 821, 17, 79, "Output",ExpressionUUID->"5f0ffa61-7a76-4028-ac38-f3386f81442e",
 CellID->194717630]
}, Open  ]]
}, Open  ]],
Cell[97892, 2462, 768, 20, 38, "Text",ExpressionUUID->"2666c164-47cc-463d-85f5-ed3a5b6cdc0f",
 CellID->128796430],
Cell[CellGroupData[{
Cell[98685, 2486, 193, 2, 38, "MathCaption",ExpressionUUID->"ac9bb9e3-857e-448c-bb28-d2f9c996766b",
 CellID->124932263],
Cell[CellGroupData[{
Cell[98903, 2492, 790, 16, 25, "Input",ExpressionUUID->"8f401244-e2b0-42b2-a4d1-7a042b109507",
 CellID->137869757],
Cell[99696, 2510, 350, 9, 36, "Output",ExpressionUUID->"219be049-8810-4df0-9a1a-7d53718f58c1",
 CellID->115796959]
}, Open  ]],
Cell[CellGroupData[{
Cell[100083, 2524, 294, 7, 25, "Input",ExpressionUUID->"113dac14-8630-4349-995e-29056f8bcb33",
 CellID->48631934],
Cell[100380, 2533, 291, 7, 34, "Output",ExpressionUUID->"23155354-ad51-433c-ac83-138f60790d7c",
 CellID->112139168]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[100720, 2546, 182, 2, 38, "MathCaption",ExpressionUUID->"79a9d353-bd01-4b7a-aaca-94e41f4701a1",
 CellID->91063500],
Cell[CellGroupData[{
Cell[100927, 2552, 229, 4, 25, "Input",ExpressionUUID->"e0a51cc6-7965-4174-be34-79af0ae312a1",
 CellID->179969929],
Cell[101159, 2558, 353, 7, 34, "Output",ExpressionUUID->"769f199a-fc59-46a3-98e7-17eefa81617c",
 CellID->54875756]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[101561, 2571, 262, 3, 38, "Subsection",ExpressionUUID->"1d6c8654-8347-4fa6-9efb-b6efac3c8ebd",
 CellID->14448372],
Cell[101826, 2576, 233, 4, 21, "Text",ExpressionUUID->"9720a6e0-a194-4bad-9597-bfd9ac4e1303",
 CellID->749768487],
Cell[102062, 2582, 215, 2, 20, "BulletedText",ExpressionUUID->"7ff6b78d-90e9-475d-8c1f-8772d5861db0",
 CellID->389515429],
Cell[102280, 2586, 269, 5, 20, "BulletedText",ExpressionUUID->"6abc91d1-b9a1-42c4-8912-79dd3583b876",
 CellID->18276176],
Cell[102552, 2593, 233, 4, 21, "Text",ExpressionUUID->"84e348e6-a2f7-450b-bc0a-cd6584b8df4d",
 CellID->103234196],
Cell[102788, 2599, 1293, 26, 113, "Text",ExpressionUUID->"752e8d4d-d16c-493e-8818-7e7de616c719",
 CellID->688936598],
Cell[CellGroupData[{
Cell[104106, 2629, 207, 2, 38, "MathCaption",ExpressionUUID->"1b676719-553d-43b9-80c0-07fe7e37618b",
 CellID->177417840],
Cell[104316, 2633, 632, 15, 25, "Input",ExpressionUUID->"1d63a45d-19c9-43a8-a010-384bd9b3276c",
 CellID->283577110]
}, Open  ]],
Cell[104963, 2651, 271, 5, 21, "Text",ExpressionUUID->"949bc003-7b20-4392-b2c3-64c1634b9d93",
 CellID->265964675],
Cell[CellGroupData[{
Cell[105259, 2660, 310, 6, 38, "MathCaption",ExpressionUUID->"16cba192-9db2-4813-86e6-8bfe22833b9a",
 CellID->218422533],
Cell[105572, 2668, 609, 13, 25, "Input",ExpressionUUID->"7f5f40b4-5ffb-41ab-a3d0-991ed1d2debc",
 CellID->5493170]
}, Open  ]],
Cell[106196, 2684, 312, 6, 21, "Text",ExpressionUUID->"0763588e-ba49-451d-a667-1c79eef2ded4",
 CellID->382075119],
Cell[106511, 2692, 406, 7, 51, "Text",ExpressionUUID->"488e2d1b-a97a-41e9-8b0f-66d6c0144046",
 CellID->183399998],
Cell[CellGroupData[{
Cell[106942, 2703, 369, 4, 38, "MathCaption",ExpressionUUID->"01c4cb99-4885-4aea-b617-f37329ebe012",
 CellID->38518639],
Cell[CellGroupData[{
Cell[107336, 2711, 1071, 24, 25, "Input",ExpressionUUID->"c28e53fc-eea8-4aed-8b63-9d57c35d353f",
 CellID->250591936],
Cell[108410, 2737, 418, 9, 34, "Output",ExpressionUUID->"1edc213e-c57e-47b4-81bf-0f88ff22e634",
 CellID->118659219]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[108877, 2752, 192, 2, 38, "MathCaption",ExpressionUUID->"e817ed9d-d09a-497e-ac6a-934efa66f9a9",
 CellID->71362658],
Cell[CellGroupData[{
Cell[109094, 2758, 233, 4, 25, "Input",ExpressionUUID->"624263bd-b1bf-456d-b359-b43bd17bf9e1",
 CellID->178512955],
Cell[109330, 2764, 186, 3, 24, "Output",ExpressionUUID->"f0f0ec3c-2ed9-4c21-8b6b-501aab718797",
 CellID->86174167]
}, Open  ]]
}, Open  ]],
Cell[109543, 2771, 441, 7, 51, "Text",ExpressionUUID->"54778af6-1bd1-4953-9f76-5e06ec8d94ab",
 CellID->503268540]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[110033, 2784, 427, 6, 50, "Section",ExpressionUUID->"44ff8989-bc3e-4f66-9707-b0e1ad29a440",
 CellID->540884156],
Cell[110463, 2792, 629, 10, 66, "Text",ExpressionUUID->"e224773c-9046-4b29-9d70-253fe86d5913",
 CellID->4166504],
Cell[111095, 2804, 2614, 48, 61, "Text",ExpressionUUID->"fbf6a5ca-e4b0-429f-a07c-d6fa62736fb0",
 CellID->270181972],
Cell[113712, 2854, 374, 7, 36, "Text",ExpressionUUID->"e2ce208a-16fc-4633-aa4e-a825e46065e9",
 CellID->23578408],
Cell[114089, 2863, 7698, 131, 156, "Text",ExpressionUUID->"fb231467-880a-4072-a33b-60e4f8894a73",
 CellID->329808217],
Cell[121790, 2996, 409, 7, 51, "Text",ExpressionUUID->"b6993e00-226a-489f-97cb-44434225708d",
 CellID->326318133],
Cell[CellGroupData[{
Cell[122224, 3007, 405, 9, 38, "MathCaption",ExpressionUUID->"e20c1dd8-c5fc-4aa8-8ca2-b4e4475bdde7",
 CellID->20584570],
Cell[122632, 3018, 182, 2, 25, "Input",ExpressionUUID->"7344ab11-a8ab-4d59-95dd-121805d34d01",
 CellID->164418293]
}, Open  ]],
Cell[122829, 3023, 364, 7, 36, "Text",ExpressionUUID->"b170b463-739c-4ba0-be48-2b66376cf6a2",
 CellID->157031322],
Cell[123196, 3032, 2652, 49, 58, "Text",ExpressionUUID->"ec957277-e657-4773-9b1a-4eb30915f32c",
 CellID->781485454],
Cell[CellGroupData[{
Cell[125873, 3085, 297, 4, 38, "Subsection",ExpressionUUID->"68b0a522-45d3-4fb0-a1d6-7115e7cf781a",
 CellID->67841865],
Cell[126173, 3091, 629, 10, 81, "Text",ExpressionUUID->"142e3d26-cbf2-4bf7-8c3f-c1b52ad9cf85",
 CellID->715501182],
Cell[126805, 3103, 483, 8, 51, "Text",ExpressionUUID->"7153723a-3ea9-467c-93e1-c6d8a35a85b9",
 CellID->335113740],
Cell[127291, 3113, 16253, 280, 307, "Text",ExpressionUUID->"317f573c-7428-4f8a-b12d-a678506d6ea9",
 CellID->43693525],
Cell[143547, 3395, 472, 8, 36, "Text",ExpressionUUID->"1ce5e310-19a4-4756-9379-ea5527ffc79d",
 CellID->316971399],
Cell[144022, 3405, 2841, 52, 69, "Text",ExpressionUUID->"a39966c0-4ffb-411c-80b4-aec519d0b058",
 CellID->138147941],
Cell[146866, 3459, 887, 14, 111, "Text",ExpressionUUID->"f7dd22ba-490b-496e-9fac-58f9b1f11099",
 CellID->288266649]
}, Open  ]],
Cell[CellGroupData[{
Cell[147790, 3478, 174, 2, 38, "Subsection",ExpressionUUID->"3983ff03-3be9-4c20-ad2a-7cb0656a000b",
 CellID->247919585],
Cell[147967, 3482, 399, 7, 21, "Text",ExpressionUUID->"ca14a5cc-136d-4181-ad70-1ced02123860",
 CellID->512509361],
Cell[148369, 3491, 361, 7, 21, "Text",ExpressionUUID->"a157348d-8813-49bf-8257-9091c0d24bfb",
 CellID->468518309],
Cell[148733, 3500, 354, 7, 21, "Text",ExpressionUUID->"b0d8add0-a723-4b29-9909-d3333a390774",
 CellID->618307694],
Cell[149090, 3509, 536, 11, 21, "Text",ExpressionUUID->"5cb3006d-6d77-47d9-b222-b6e1eea2b568",
 CellID->106327427],
Cell[CellGroupData[{
Cell[149651, 3524, 249, 7, 38, "MathCaption",ExpressionUUID->"cc42f0a7-508d-4ba9-b4e1-c1da780b0834",
 CellID->3976962],
Cell[CellGroupData[{
Cell[149925, 3535, 268, 5, 25, "Input",ExpressionUUID->"8d8d34fd-0d65-4551-8207-ea442693e558",
 CellID->512118196],
Cell[150196, 3542, 58712, 1224, 204, "Output",ExpressionUUID->"0493d4c6-c2d0-4fec-801a-6908b39bfa28",
 CellID->772089751]
}, Open  ]]
}, Open  ]],
Cell[208935, 4770, 749, 14, 51, "Text",ExpressionUUID->"71d52275-73e4-45d5-9110-e90f055853df",
 CellID->717984292],
Cell[209687, 4786, 400, 7, 36, "Text",ExpressionUUID->"d941b7e7-9c28-4b4a-ae43-84ad8a052ad6",
 CellID->167377411]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[210136, 4799, 199, 3, 50, "Section",ExpressionUUID->"1f287d35-537e-4790-ae12-7b0fe2cf77a4",
 CellID->776680],
Cell[210338, 4804, 347, 6, 36, "Text",ExpressionUUID->"efba1679-0f5f-474a-99ff-8a4c64487264",
 CellID->442085681]
}, Open  ]],
Cell[CellGroupData[{
Cell[210722, 4815, 120, 1, 70, "TutorialMoreAboutSection",ExpressionUUID->"e1409007-77ef-48a0-b188-6955907bb894",
 CellID->23220180],
Cell[210845, 4818, 282, 4, 20, "TutorialMoreAbout",ExpressionUUID->"8015610e-3dbd-47af-bb5b-76adb3a751ec",
 CellID->1567025153]
}, Open  ]],
Cell[CellGroupData[{
Cell[211164, 4827, 127, 1, 70, "RelatedTutorialsSection",ExpressionUUID->"9eb1cd53-f984-47f2-81c8-ed826649694e",
 CellID->415694126],
Cell[211294, 4830, 296, 5, 20, "RelatedTutorials",ExpressionUUID->"7023b7bc-6871-4e18-b287-3ad110ad8d54",
 CellID->90776795],
Cell[211593, 4837, 526, 8, 20, "RelatedTutorials",ExpressionUUID->"b26db3c9-791f-4e3f-8140-567ca1deee8c",
 CellID->127830579],
Cell[212122, 4847, 329, 5, 20, "RelatedTutorials",ExpressionUUID->"ffe8fb96-4dc1-4ce7-9958-9a6ac00b90aa",
 CellID->806871991],
Cell[212454, 4854, 377, 6, 20, "RelatedTutorials",ExpressionUUID->"9eca36da-6866-44c1-a06e-468307dfa912",
 CellID->190022963],
Cell[212834, 4862, 356, 6, 20, "RelatedTutorials",ExpressionUUID->"e775de24-264c-4d46-a0d9-450ee97d1e85",
 CellID->103662598],
Cell[213193, 4870, 345, 6, 20, "RelatedTutorials",ExpressionUUID->"88b9f2d5-7826-4bf6-87c8-c9dcc466d17f",
 CellID->17959204]
}, Open  ]],
Cell[CellGroupData[{
Cell[213575, 4881, 153, 1, 70, "TutorialRelatedLinksSection",ExpressionUUID->"32544ff3-da5f-4a0e-82fe-848c99189f19",
 CellID->415694148],
Cell[213731, 4884, 111, 1, 20, "TutorialRelatedLinks",ExpressionUUID->"e58b8f2e-ddf0-4b16-b1b3-c659d611fbe2",
 CellID->415694149]
}, Open  ]]
}, Open  ]]
}
]
*)

